program fjf864g1;

uses fjf864m;

type
  ooo = object (oo)
    procedure v;
  end;

procedure ooo.v;

  procedure k;
  begin
    b := 'OK'
  end;

begin
  k;
  q
end;

var
  v: ooo;

begin
  v.v
end.
