(*

open Lang.Exercises
(* let () = Printf.printf "%d\n" (eval_a_exp (Of_bool (Bval true))); *)

let myfsa: fsa = {vertices = (StringMap.add "node 2" true (StringMap.singleton "node 1" false));
             edges = (StringMap.add "node 2" ("node 2", 'b') (StringMap.singleton "node 1" ("node 2", 'a')));
             state = "node 1"}

let mystr = ['a'; 'b'; 'a'; 'b']

let ret = (Lang.Exercises.ex8 mystr myfsa);;
if ret
then print_endline "true"
else print_endline "false"

                 *)

open Lang.MiniImp

let program1 =
  Main
    ("a",
     "b",
     (Sequence
        ((Assignment "x" (Integer 1)),
        (Assignment "b" (Plus (Plus (Variable "a") (Variable "x")) (Variable "y"))))
     )
    )
    Printf.printf "%d\n" (result program1 1)