*a=eval<>;print$z+=$a[$z]||&f,$/for@a