Quail in Haskell