/****************************************************************************
Ejercicio: 2.11
Alumno: Leandro Lucarella
Fecha: mié jul 27 16:05:51 ART 2005
****************************************************************************/

functor
import
    Application
    System
define

    fun {IsEven X}
        if X==0 then true else {IsOdd X-1} end
    end
    fun {IsOdd X}
        if X==0 then false else {IsEven X-1} end
    end

    {System.show {IsEven 100000000}}
    {System.show {IsOdd  100000000}}
    {System.show {IsEven 100000001}}
    {System.show {IsOdd  100000001}}

    {Application.exit 0}
end

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