more codewars in haskell