Sam's haskell