COUNT
* COUNT ( counted-string -- string-pointer string-length )

usually before calling TYPE

(as an unwarranted extension, this word does try to be idempotent).

FORTH/ANS core (dpANS.6.1.0980) ordinary primitive