All pastes #359281 Raw Edit

Untitled

public text v1 · immutable
·published 2007-02-16 18:16 UTC
rendered paste body
C:\Lang\spf\devel\~profit\lib\bac4th.f
C:\Lang\spf\lib\ext\locals.f

: a PRO { n -- } 10 0 DO I n + CONT DROP n CONT DROP LOOP ;
: r 10 a DUP CR . ; r