(
    (defun append (L R)
         (if L
             (c (f L) (append (r L) R))
             R
         )
    )
)