Fixing test.hs.  Now works.