problem22.hs