print$i+=$a[$i]//&f,$/while*a=eval<>