\l tck/each
\l tck/tck_

maketreegenerator:D[tck.parse"swap [rot call] callcc1 [nip] dip swap [[cons swap call] callcc1 [drop2] dip] treeeach f swap call"]
treegenerator:D[tck.parse"[maketreegenerator] callcc1 nip"]
callgenerator:D[tck.parse"[swap call] callcc1 nip dup [uncons swap] [] ifte"]
generatoreach:D[tck.parse"swap [callgenerator dup] [swap [over [swap call] dip] dip] while drop2"]