(def list* args
    (aif (cddr args) (cons (car args) (apply list* it))
         (cdr args) (cons (car args) it)
         (car args)))