.: last@  curr @ @ .0> y + ;
.: last!  curr @ ! ;
.: .link  y - y w! ;
.: link  last@ .link x last! 2+ ;
.: idx  index .@ z w! 1+! 2+ ;
.: name  x bl .word count + <>y ! ;
.: 0?  .@ .0>; drop hp @ 4kb + ;
.: header  0? link idx name ;
.: set  .@ rot <>y ! 8+! ;
.: ptrs cfa set bp @ pfa set ;
: (create)  ptrs hp header ;
: (.create)  ptrs ht header ;