added almost nothing to tut3.hs