var i,j,k,n:word;begin repeat k:=i;n:=0;for j:=1to 6do begin
k:=k div j;n:=n+k mod(j+1)*10pow j end;writeln(n);i:=i+1until i>1000end.