Update Problem9.hs