$w++for<>;print$w