: compile  r> .h@++ b, >r ;
.: (.")  r> count over over type + align >r ;
.: copy  .c@ 1+ dp.b @ swap cmove> ;
.: alloc  dp.b @ count + align dp.b ! ;
.: comp  compile (.") copy alloc ;
.: exec  0!=; count type ;;
.: choose  state @ exec comp ;
: ."  { 34 word wbuf choose 0 } ; immed