Update Kata.hs