Update kata6.hs