new file:   proj0809.hs