procedure f (x, z : Integer);

  procedure g (y : Integer);
  begin
    writeln ('x = ', x, ', y = ', y , ', z = ', z );
  end;

  procedure bug();
  begin
    g(2);
  end;

  procedure bugbug();
  begin
    bug();
  end;

  procedure bugbugbug();
  begin
    bugbug();
  end;

  procedure bugbugbugbug();
  begin
    bugbugbug();
  end;

  procedure bugbugbugbugbug();
  begin
    bugbugbugbug();
  end;

  procedure bugbugbugbugbugbug();
  begin
    bugbugbugbugbug();
  end;

  var useless : Integer;

begin
  writeln ('You should get (', x, ', 2, ', z, ')');

  bugbugbugbugbugbug();
  bugbugbugbugbug();
  bugbugbugbug();
  bugbugbug();
  bugbug();
  bug();
  g(2);
end;

begin
  writeln('start test');
  f(1,3);
  writeln('end test');
end.