path: root/fpcsrc/tests/webtbs/uw2269.inc

procedure p;
begin
  writeln('Hello');
end;