: empty? ( c-addr u -- ? ) nip 0= ;

s" "  dup .  empty? .   \ 0 -1