(* LEGAL: scope of the name of subprograms *)
program main( input, output );
  procedure boo;
    procedure foo;
    begin
    end;
  begin
    foo
  end;
begin
  boo
end.