Programs.hs

   1 module Programs where
   2
   3 import AST
   4
   5 testProg :: Statement
   6 testProg = Seq (Assign "x" (Const (I 0))) loop
   7   where loop = Seq (Print (Var "x"))
   8                    (Seq (Assign "x" (Add (Var "x") (Const (I 1))))
   9                         loop)
  10 testTry :: Statement
  11 testTry = Try (Print (Add (Const (I 3)) (Const (B True))))
  12               (Print (Const (I 0)))