RosettaCodeData/Task/String-length/Forth/string-length-1.fth

CREATE s ," Hello world" \ create string "s"
s C@ ( -- length=11 )
s COUNT  ( addr len )   \ convert to a stack string, described below