Update Problem10.hs