Create problem46.hs