modified:   proj07.hs