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];