<>=~$";
$o=1;
for$x($`,$'+1){
	$c=-$c;
	$d=1;
	for(0..14){
		$y=$x/$d|0;
		$c+=int(($y-13)/100+1)*$d;
		$c+=$x%$d if $y%100==12;
		$c+=int($d/10) if $y>2;
		$c+=int(($x-$d*2)/10)+($x%10>$o) if $y==2;
		$d*=10;
	}
	++$o;
}
print$c+($`<3)-($'<2)