それはもしかして，

    % perl -e "for( 1..650 ){ print; print qq/\n/ if /0$/ }"

って事か(笑)　perl だと 1 liner で書けるし(笑)
これだからマッカーは