program ObjectTest;
var c : Object(cenas)(me : Fun() : cenas);

class Counter

    function me() : Object(bla)(me : Fun() : bla)
    begin
        result := self
    end;

begin
    writeln()
end;

begin
    c := new Counter
end.