Code generators for cfg instructions.

Combinators:
with-fixup ( quot -- code )