#directory "/home/student/Downloads/TP2";;
#use "tp2.ml";;

open Tp2;;


let pgm1 =
	([(1, Api "a", 2); (2, Epsilon, 6); (2, Epsilon, 6); (6, Api "e", 7);
	  (7, Epsilon, 7); (7, Api "exit", 10)],1);;

let pgm2 =
	([(1, Api "a", 2); (2, Epsilon, 5); (5, Epsilon, 6); (6, Api "c", 7);
	  (7, Epsilon, 7); (1, Epsilon, 3); (3, Api "a", 4); (4, Epsilon, 4);
	  (4, Api "b", 8)],1);;

let pgm3 =
	([(1, Epsilon, 2); (2, Api "a", 6); (6, Epsilon, 7); (7, Api "b", 10);
      (10, Epsilon, 10); (6, Api "c", 8); (1, Epsilon, 4);
      (4, Epsilon, 1)], 1);;

let pgm4 =
	([(0, Api "a", 6); (0, Epsilon, 3); (6, Api "b", 10); (6, Api "c", 8);
	  (8, Epsilon, 8)],0);;