a=input()
b=0
e=1
while b<a:exec a/e%10*'print"%0*d"%(len(str(a)),b);b+=e;';e*=10
print b