first problem with haskell