(define(comb n)
        (if( = n 0) 1
                (* n(comb(-n 1))))

write(comb(5))