ch 3 lear you a haskell - pattern match practice