pete : create haskell