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