Lamfa in Haskell