Program enot;
Var a:string;
n,i:integer;
Begin
read(a);
n:=length(a);
for i:=1 to n do
case a[i] of
'0': a[i]:='A';
'1': a[i]:='B';
'2': a[i]:='C';
'3': a[i]:='D';
'4': a[i]:='E';
'5':  a[i]:='F';
'6': a[i]:='G';
'7': a[i]:='H';
'8': a[i]:='I';
'9': a[i]:='J';
end;
write(a);
end.