Update Problem0001.hs