haskell > having a got at input