$i++while<>;print $i