2.1.oz

   1 /****************************************************************************
   2 Ejercicio: 2.1
   3 Alumno: Leandro Lucarella
   4 Fecha: mié jul 27 14:34:05 ART 2005
   5 ****************************************************************************/
   6
   7 functor
   8 import
   9     Application
  10     System
  11 define
  12     proc {P X}
  13         if X>0 then {P X-1} end % La llamada es unbounded
  14         {System.show X}
  15     end
  16     % Imprimimos algo de ejemplo
  17     {P 5}
  18     {Application.exit 0}
  19 end
  20
  21 % vim: set et sw=4 sts=4 filetype=oz :