modified:   proj05.hs