var a:array[0..9pow 7]of byte;i,j,k:word;begin a[0]:=1;repeat k:=a[i]*4+k div 10;a[i+1700]:=k mod 10;i:=i+1until i>4760000;repeat read(i);k:=0;for j:=0to 1699do k:=k+a[i*1700+j];writeln(k)until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).