1 2 3 4 5 6 7 8 9 10
x := (); main := ( (print-s x) (set x 123) (print-s x) (set x ABC) (print-s x) );