hamachi.p

早期freebsd实现

program test(input, output);

procedure x(procedure y(a:  integer));
   function b:  integer;
   begin
      y(2);
      b:=5;
   end;

begin
   y(1);
   writeln(output, 'Function b returns ', b);
end;

procedure z(a:  integer);
begin
   writeln(output, 'Answer is ', a:0);
end;


begin
   x(z);
end.