add problem1.hs