\ ( addr -- addr+1 len ) : count dup 1+ swap c@ ;