{
TASK:LDIST
LANG:PASCAL
}
program LDIST;
var s1,s2:string;
begin
repeat readln(s1);
until s1='BIOGRAPHY';
repeat
readln(s2);
until s2='B10_GR4PHIE';
writeln('360');
readln;
end.