Added test.hs