-True. Bool ::= "true" ;
-False. Bool ::= "false" ;
-
-SDecl. Stm ::= Type Ident "=" Exp ";" ;
-decl. Stm ::= Type Ident ";" ;
-define decl t v = SDecl t v EDefault ;
-SExp. Stm ::= Exp ";" ;
-SBlock. Stm ::= "{" [Stm] "}" ;
-if. Stm ::= "if" "(" Exp ")" Stm ;
+
+True. Bool ::= "true" ;
+False. Bool ::= "false" ;
+
+TInt. Type ::= "int" ;
+TBool. Type ::= "bool" ;
+
+Program. Stms ::= [Stm] ;
+
+
+SExp. Stm ::= Exp ";" ;
+SBlock. Stm ::= "{" [Stm] "}" ;
+SDecl. Stm ::= Type Ident "=" Exp ";" ;
+SDeclD. Stm ::= Type Ident ";" ;
+
+
+SWhile. Stm ::= "while" "(" Exp ")" Stm ;