1 2 3 4 5 6 7 8 9 10 11 12 13
main := ( (local c) (local e) (set e ()) (set c 'A) (set e (e (clone-rope c))) (set c 'B) (set e (e (clone-rope c))) (set c 'C) (set e (e (clone-rope c))) (print-s e) );