structure PP = PPrint(ImpAst)
structure EV = Eval(ImpAst)

fun test f = 
  let 
    val command = Parser.parse f
  in
      PP.pprintCom command; 
      print "\n\n";
      print "running...";
      let 
	  val s = EV.eval(command, EV.empty_store) 
	  val x = s("x")
      in
	  print "\nvalue of x is ";
	  print (Int.toString x);
	  print "\n";
	  x
      end
  end

