function f1: byte;
begin
  
  var p: ()->() := ()->
  begin
    Result := 0;
  end;
  
end;

begin 
end.