$i+=print"$n$s ";$s=substr($s,2).($s