Solve problem 1 in Haskell
Solve problem 38 in Haskell