0 [ [ putn space ] sip 1+ dup 0 <> ] while drop