RosettaCodeData/Task/Comments/Forth/comments-3.fth

3 lines
69 B
Forth

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