procedure a()
begin
  integer i := 1;
  print i;
  print a;
end

procedure b()
begin
  real r := 2.0;
  print r;
end

begin
  integer i;
  real r;
  a();
  b();
  print(3);
end