18, haskell