program fjf893;

var
i : Integer;
   s : string(10);

procedure x(s:string); begin WriteLn (s, 'OK') end;

begin
  s :='';
      for i := 1 to Length (s) do
         case i of
            0 :
          end;
 x (''+s)
end.
