Update haskell.hs

New update version with assigment 4.To do check it