program fjf95a;
var
  a:file [ 0..MaxInt ] of integer;
  s1,s2:integer;
begin
  rewrite(a);
  write(a,1,2,3);
  reset(a);
  seek(a,0);
  read(a,s1);
  read(a,s2);
  if(s1=1)and(s2=2)then
    writeln('OK')
  else
    writeln('failed: ',s1,' ',s2);
  close(a)
end.
