haskell crapwork