-MACRO (LST)        (IF (CONSP LST)            (IF (CONSP (CDR LST))                (CONS 'IF                      (CONS (CAR LST)                            (CONS (CAR LST)                            