modal/examples/test.modal

<> (?x dup) (?x ?x)
<> (?x ?y swap) (?y ?x)
<> ( ?x pop) ()

(1 2 3) (4 5 6) swap pop dup