<> (explode ?*) (str (?*)) <> (reverse (str (?h ?t))) (reverse/l ?t (?h)) <> (reverse (str (?h))) (?h) <> (reverse/l (?h ?t) ?l) (reverse/l ?t (?h ?l)) <> (reverse/l (?h) ?l) (str (?h ?l)) <> (implode str ?*) (?*) <> (empty-register) (?x) <> (explode ?*) (str (?*)) <> (eq ?x ?x) (#t) <> (eq ?x ?y) (#f) <> (?x dup) (?x ?x) <> (?x ?y swap) (?y ?x) <> (?x pop) () <> (print ?:) () (implode reverse (explode hello)) (explode hello) empty-register (eq abc abc) (eq abc def) (1 2 3) (4 5 6) swap pop dup (hey 1234 pop) (print Done.)