new file:   proj07.hs