procedure foo;
  begin
    exit();
  end;

function bar: integer;
  begin
    exit(42);
  end;
  
begin
end.