[Haskell-cafe] pattern matching instead of prelude.head