ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst/proc2.pcat

Text File | 2005-10-24 | 285b | 20 lines

program is
  procedure
   f(x:integer) is
    begin
      write("f ", x);
      if x = 0 then return;
      else g(x-1);
      end;
    end;
   g(x:integer) is
    begin
      write("g ", x);
      if x = 0 then return;
      else f(x-1);
      end;
    end;
  begin
    f(5);
  end;