Haskell toy