progress test.hs