var
  s:char;
  t:string;
  i,j,k,l,top:integer;
begin
  read(s);
  if s=';' then exit;
  while s<>';' do
    begin
      t:=t+s;
      if s='(' then inc(top);
      if s=')' then dec(top);
      if top<0 then
        begin
          writeln('error 2');
          exit;
        end;
      if (s<>'a') and (s<>'b') and (s<>'c') and (s<>'(') and (s<>')') and (s<>'+') and (s<>'-') and (s<>'*') and (s<>'/') then
        begin
          writeln('error 1');
          exit;
        end;
      read(s);
      if (t[length(t)]=')') and ((s='a') or (s='b') or (s='c')) then
        begin
          writeln('error 3');
          exit;
        end;
      if ((t[length(t)]='a') or (t[length(t)]='b') or (t[length(t)]='c')) and ((s='a') or (s='b') or (s='c')) then
        begin
          writeln('error 3');
          exit;
        end;
    end;
  if top=0 then writeln('OK') else writeln('error 2');
end.