Checkout kata: trivial in Haskell