: add'em ( a b -- a+b )   + ;
: strlen ( addr -- len )   count nip ;