$p+=1;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=8;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=5;
print chr$m[$p];
$p+=1;
$m[$p]+=6;
while($m[$p]){
$p-=1;
$m[$p]+=5;
$p+=1;
$m[$p]-=1;
}
$p-=1;
print chr$m[$p];
$p+=1;
$m[$p]+=2;
while($m[$p]){
$p-=1;
$m[$p]-=7;
$p+=1;
$m[$p]-=1;
}
$p-=1;
print chr$m[$p];
$p+=1;
$m[$p]+=3;
while($m[$p]){
$p-=1;
$m[$p]+=4;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=1;
print chr$m[$p];
$m[$p]-=4;
print chr$m[$p];
$p+=1;
$m[$p]+=3;
while($m[$p]){
$p-=1;
$m[$p]-=4;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]-=1;
print chr$m[$p];
$p+=1;
$m[$p]+=3;
while($m[$p]){
$p-=1;
$m[$p]+=4;
$p+=1;
$m[$p]-=1;
}
$p-=1;
print chr$m[$p];
$p+=1;
$m[$p]+=2;
while($m[$p]){
$p-=1;
$m[$p]-=4;
$p+=1;
$m[$p]-=1;
}
$p-=1;
print chr$m[$p];
$p+=1;
$m[$p]+=4;
while($m[$p]){
$p-=1;
$m[$p]-=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]-=3;
print chr$m[$p];
$p+=1;
$m[$p]+=4;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=2;
$p+=2;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=8;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=1;
$p+=2;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=5;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=3;
$p+=2;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
# Stop here
$p-=1;
$m[$p]-=7;
$p+=2;
$m[$p]+=11;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=3;
$p+=1;
$m[$p]=ord getc;
print chr$m[$p];
$m[$p]+=2;
$p+=1;
$m[$p]=ord getc;
print chr$m[$p];
$p+=1;
$m[$p]=ord getc;
print chr$m[$p];
$p+=1;
$m[$p]=ord getc;
print chr$m[$p];
$m[$p]-=4;
$p+=1;
$m[$p]=ord getc;
print chr$m[$p];
$p+=3;
$m[$p]+=8;
while($m[$p]){
$p-=1;
$m[$p]+=4;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$p+=2;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=9;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]-=3;
$p+=2;
$m[$p]+=11;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=4;
$p+=2;
$m[$p]+=11;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=1;
$p+=2;
$m[$p]+=11;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$p+=2;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=3;
$p+=2;
$m[$p]+=6;
while($m[$p]){
$p-=1;
$m[$p]+=5;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=3;
$p+=1;
$m[$p]+=1;
$p+=2;
$m[$p]+=8;
while($m[$p]){
$p-=1;
$m[$p]+=4;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$p+=2;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=7;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]-=3;
$p+=2;
$m[$p]+=11;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=1;
$p+=2;
$m[$p]+=11;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=4;
$p+=2;
$m[$p]+=11;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=4;
$p+=2;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=1;
$p+=2;
$m[$p]+=10;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]-=1;
$p+=2;
$m[$p]+=11;
while($m[$p]){
$p-=1;
$m[$p]+=10;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=6;
$p+=2;
$m[$p]+=6;
while($m[$p]){
$p-=1;
$m[$p]+=5;
$p+=1;
$m[$p]-=1;
}
$p-=1;
$m[$p]+=3;
$p-=22;
while($m[$p]){
$p-=5;
$m[$p]-=1;
$p+=5;
$m[$p]-=1;
}
$p-=5;
while($m[$p]){
$p+=10;
$m[$p]+=1;
$p-=10;
while($m[$p]){
$m[$p]-=1;
}
}
$p+=6;
$m[$p]-=1;
while($m[$p]){
$p-=5;
$m[$p]-=1;
$p+=5;
$m[$p]-=1;
}
$p-=5;
while($m[$p]){
$p+=9;
$m[$p]+=1;
$p-=9;
while($m[$p]){
$m[$p]-=1;
}
}
$p+=6;
$m[$p]+=2;
while($m[$p]){
$p-=5;
$m[$p]-=1;
$p+=5;
$m[$p]-=1;
}
$p-=5;
while($m[$p]){
$p+=8;
$m[$p]+=1;
$p-=8;
while($m[$p]){
$m[$p]-=1;
}
}
$p+=6;
while($m[$p]){
$p-=5;
$m[$p]-=1;
$p+=5;
$m[$p]-=1;
}
$p-=5;
while($m[$p]){
$p+=7;
$m[$p]+=1;
$p-=7;
while($m[$p]){
$m[$p]-=1;
}
}
$p+=6;
$m[$p]+=5;
while($m[$p]){
$p-=5;
$m[$p]-=1;
$p+=5;
$m[$p]-=1;
}
$p-=5;
while($m[$p]){
$p+=6;
$m[$p]+=1;
$p-=6;
while($m[$p]){
$m[$p]-=1;
}
}
$p+=6;
while($m[$p]){
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
$m[$p]-=1;
$p-=8;
while($m[$p]){
$m[$p]-=1;
}
}
$p+=8;
while($m[$p]){
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p+=1;
print chr$m[$p];
$p-=9;
while($m[$p]){
$m[$p]-=1;
}
}