4.4BSD/usr/src/usr.bin/pascal/tstpx/src/hamachi.p

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.