[clean up use of anonymous ids 
John Meacham <john@repetae.net>**20090222140425
 Ignore-this: 2e40f53aa811748c1b1ba4d90cfa8f5b
] hunk ./E/FromHs.hs 10
-import Control.Monad.Trans
hunk ./E/FromHs.hs 83
-        f xs (tVr (anonymous $ 2*s) x:ys)
+        f xs (tVr (anonymous s) x:ys)
hunk ./E/FromHs.hs 201
-            ts' = [ EVar (tVr j (getType z)) | z <- ts | j' <- [2,4 ..], let j = anonymous j', j `notElem` map tvrIdent args]
+            ts' = [ EVar (tVr j (getType z)) | z <- ts | j <- someIds]
hunk ./E/FromHs.hs 206
-            (ja:jb:_) = [ anonymous j |  j <- [2,4 ..], anonymous j `notElem` map tvrIdent args]
+            (ja:jb:_) = someIds
hunk ./E/FromHs.hs 210
+        someIds = newIds (fromList $ map tvrIdent args')