Program test_2013_4;
Var n:string; j,i,d:integer; s,t:real;m:char;
begin
readln(n);readln(m);
j:=1; s:=0;
for i:=length(n) downto 1 do
begin
case n[i] of
'2':d:=2;
'1':d:=1;
'0':d:=0;
end;
s:=s+d*j; j:=j*3;
end;
t:=ord(m)-65;
s:=sqrt(s);
writeln(s:0:0);
end.

输入：1201001
S
输出：35