10?$i++*$s+=$n:$s=$i=0*print chr($s/$i).~õ;