{Gabor Karina Intermediate Division

"MIhai Viteazul" National College

Sfantu Gheorghe, Romania}

const v:array[1..10] of byte =(16,16,8,8,4,4,2,2,1,1);

c:array[1..10] of byte =(16,8,4,2,1,16,8,4,2,1);

var

x:char;

f:text;

sum1,sum2,n:byte;

begin

assign(f,'input.TXT');

reset(f);

while(not(seekeof(f))) do

begin

read(f,x);

sum1:=1;

sum2:=1;

read(f,n);

while(n<>0) do

begin

if(x='H')then begin

if(n mod 2 =0) then

sum1:=sum1+ v[n]

else

sum2:=sum2+v[n];

end

else

begin

if(n>=1) and(n<6) then

sum1:=sum1+c[n]

else

sum2:=sum2+c[n];

end;

read(f,n); end;

writeln(sum1,'/',sum2);

readln(f);end;

close(f);

end.