more haskell codewars
renamed stuff