S.I/Lisp/

DECREMENT

=DECREMENT(1)
-> 0

=DECREMENT(1, 1)
-> -1
        

DEFINE(
    DECREMENT,
    LAMBDA(
        x,
        [times],
        SUM(
            x,
            PRODUCT(
                -1,
                DEFAULT(
                    times,
                    1)))))
        

Help us optimize this function