--- a/tools/PascalUnitSyntaxTree.hs	Thu Jun 28 22:45:06 2012 +0400
+++ b/tools/PascalUnitSyntaxTree.hs	Fri Jun 29 00:45:13 2012 +0400
@@ -30,8 +30,9 @@
     | String Integer
     | Set TypeDecl
     | FunctionType TypeDecl [TypeVarDeclaration]
-    | DeriveType InitExpression 
+    | DeriveType InitExpression
     | VoidType
+    | VarParamType TypeDecl -- this is a hack
     deriving Show
 data Range = Range Identifier
            | RangeFromTo InitExpression InitExpression
@@ -113,4 +114,5 @@
     | BTEnum [String]
     | BTVoid
     | BTUnit
+    | BTVarParam BaseType
     deriving Show