/****************************************************************************
Ejercicio: 2.7
Alumno: Leandro Lucarella
Fecha: mié jul 27 15:33:55 ART 2005
****************************************************************************/

functor
import
    Application
    System
define
    Max3 Max5
    proc {SpecialMax Value ?SMax}
        fun {SMax X}
           if X>Value then X else Value end
        end
    end
    {SpecialMax 3 Max3} % Algo así como un constructor de funciones
    {SpecialMax 5 Max5}
    {System.show [{Max3 4} {Max5 4}]}
    {Application.exit 0}
end

% vim: set et sw=4 sts=4 filetype=oz :