All pastes #273572 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-12-10 00:20 UTC
rendered paste body
: store ( addr "numbers" -- )
    begin
        0 0 bl word count
        dup if
            >number drop drop drop over c! 1+
        else
            drop drop drop drop drop exit
        then
    again ;