: offset  find base.h @ - ;
: cfa!  curr @ @ h! ;
: here  dp.b @ base.b @ - ;
: addr  base.b @ + ;

offset h, const [h,]
offset create const [create]
offset cfa! const [cfa!]

: builds>  0 lit [h,] b, [create] b, (does) lit [cfa!] b,  ; immed
: does>  (;) b, here curr @ @ pfa h@ addr 4+ h! ; immed