program Halter;

uses SysUtils;

const OKName = 'barbar.ok';

var FFile: Text;
    X: String;

begin
  if FileExists(OKName) then Assign(FFile, OKName) else
  if FileExists('..\'+OKName) then Assign(FFile, '..\'+OKName) else
  if FileExists('..\..\'+OKName) then Assign(FFile, '..\..\'+OKName) else Halt(1);
  Reset(FFile);
  Readln(FFile, X);
  Close(FFile);
  Assign(FFile, ChangeFileExt(OKName,'.out'));
  Rewrite(FFile);
  Write(FFile,X);
  Close(FFile);
end.