forgot Gen.hs