Update Problem005.hs