; ; (caddddr '(1 2 3 4 5 6 7 8)) ;; => 5 ; (nth 5 '(1 2 3 4 5 6 7 8)) ;; => 6 // 0 based! (define caddddr (lambda (l) (car (cddddr l))))