modified:   proj06.hs