--- a/tools/PascalBasics.hs	Sun Nov 27 19:34:08 2011 +0300
+++ b/tools/PascalBasics.hs	Sun Nov 27 23:13:22 2011 +0300
@@ -8,7 +8,7 @@
 import Text.Parsec.Language
 import Data.Char
 
-builtin = ["succ", "pred", "low", "high"]
+builtin = ["succ", "pred", "low", "high", "ord"]
     
 pascalLanguageDef
     = emptyDef