fixed 2-2.hs