9-11 in Haskell