;dup [a][a a]sub i; ;swap [a b][b a]sub i; ;zap [a][]sub i; ;cons [a A][[a]A]sub i ,; ;uncons [[a A]][a A]sub i; ;each ); ;each. ).; ;prior (; ;prior: (:; ;prior. (.; ;over /; ;over: /:; ;over. /.; ;scan \; ;scan: \:; ;scan. \.; ;left {; ;left. {.; ;right }; ;right. }.; ;do {:; ;while {:; ;do.scan }:; ;while.scan }:; ;the `; ;the. `.;