Checkout Kata (Haskell)