( CREATE/DOES> behaviour: created word pushes its data address,
  then runs the DOES> body on that address. )
CREATE val 42 ,
DOES> @ ;

val . CR

CREATE buf 10 ALLOT
DOES> ;

buf DROP 65 buf C! 66 buf 1 + C! buf 2 TYPE CR

0 BYE
