Bowling kata in Haskell