[print prettier primitives.
John Meacham <john@repetae.net>**20060205034342] hunk ./E/Show.hs 13
+import C.Prims
hunk ./E/Show.hs 148
+        f (EPrim (APrim Operator { primOp = op } _) [x,y] t) = do
+            x <- showE x
+            y <- showE y
+            t <- showE t
+            return $ atom $ angles $ unparse $ atom ((unparse x) <+> text op <+> (unparse y)) `inhabit` t
+        f (EPrim (APrim CCast {} _) [x] t) = do
+            x <- showE x
+            t <- showE t
+            return $ atom $ parens (unparse t) <> unparse x