$i=9.5;print$i=int$i*7/3 for 0..18