modified:   proj04.hs