Net2/usr/src/usr.bin/pascal/tstpx/src/cutter.p

program test(output);

procedure foo(x :real);
begin end;

begin
foo(0);
end.