[add unary negation primitive
John Meacham <john@repetae.net>**20061221021433] hunk ./E/ToHs.hs 284
+transE (EPrim (APrim Operator { primOp = "-", primRetType = rt } _) [x] _) = mparen $ do
+    x <- transE x
+    return (hsep [text "negateInt#",x])