prog002/A1.hs