Update test.hs

c