NIKITA

var
  A:array [1..10000] of string;
  s:string;
  ap, i,n,q,p:longint;
begin
  readln(n,p);
  for i:=1 to n do
    readln(a[I]);
  if length(a[n])=4
    then
      ap:=2
    else
      ap:=1;
  q:=(((ap*10) div 2)*p)  div 10;
  for i:=n-1 to 1 do
    begin
      s:=s*2
      if
    end;
  writeln(q);
end.d