--- a/tools/pas2c/PascalParser.hs	Wed May 14 22:50:07 2014 +0400
+++ b/tools/pas2c/PascalParser.hs	Thu May 15 21:58:37 2014 +0400
@@ -1,5 +1,6 @@
 module PascalParser (
-    pascalUnit
+    pascalUnit,
+    mainResultInit
     )
     where
 
@@ -13,6 +14,10 @@
 import PascalBasics
 import PascalUnitSyntaxTree
 
+
+mainResultInit :: Phrase
+mainResultInit = (\(Right a) -> a) $ parse phrase "<built-in>" "main:= 0;"
+
 knownTypes :: [String]
 knownTypes = ["shortstring", "ansistring", "char", "byte"]