$n=<>;$s.=$_ for(1..100);print substr($s,$n-1,1)