updated Test.hs