: ", ( addr len -- )   
   HERE  OVER CHAR+ ALLOT  2DUP >R >R CHAR+ SWAP CMOVE  R> R> C! ;   

Tags: ANS-Forth dictionary string