--- a/tools/pas2c.hs	Thu Nov 03 23:16:26 2011 +0300
+++ b/tools/pas2c.hs	Fri Nov 04 14:10:27 2011 +0300
@@ -61,7 +61,12 @@
     -}            
 expr2C _ = empty
 
-op2C = text
+op2C "or" = text "|"
+op2C "and" = text "&"
+op2C "div" = text "/"
+op2C "mod" = text "%"
+op2C "<>" = text "!="
+op2C a = text a
 
 maybeVoid "" = "void"
 maybeVoid a = a