package language;
public class Fun_m_le implements PrimitiveFunction
{
    public ALisp lisp;
    public Fun_m_le(ALisp l)
    {
        lisp=l;
    }
    public LispObject fun(LispObject proc, LispObject argl)
    {
                MyNumber x=(MyNumber)(lisp.car(argl));
                MyNumber y=(MyNumber)(lisp.second(argl));
                if(x.le(y)) return lisp.tSymbol;
                else     return lisp.nilSymbol;

    }
}