begin-haskell