var a:array[0..1 shl 20] of int64;
i,j,k,l,m,n:longint;
s,sum:int64;

procedure rezultat(s:string; p:longint);
begin
 write(stderr,s);
 write(p);
 halt(0);
end;

procedure citire_intrare;
var f:text;
begin
 assign(f,'semne.in'); {$i-} reset(f); {$i+}
 if ioresult<>0 then rezultat('Fisier de intrare inexistent!',0);
 read(f,n,s);
 for i:=1 to n do read(f,a[i]);
 close(f);
end;

procedure citire_iesire;
var f:text;
c:char;
begin
 assign(f,'semne.out'); {$i-} reset(f); {$i+}
 if ioresult<>0 then rezultat('Fisier de iesire inexistent!',0);
 sum:=0;
 for i:=1 to n do
  begin
  read(f,c);
  if c='+' then inc(sum,a[i]) else
   if c='-' then dec(sum,a[i]) else
        rezultat('Caracter invalid sau lipsa!',0);
  end;
 if s<>sum then rezultat('Raspuns gresit!',0)
           else rezultat('Corect!',5);
 close(f);
end;

begin
 citire_intrare;
 citire_iesire;
end.