Create problem6.hs