#0 [ [ n:put spa ] sip n:inc dup n:-zero? ] while drop