4

(
    defun my-middle (lst)
    (
        cond
        ((null lst) nil)
        ((null (cdr lst)) nil)
        ((null (cdr (cdr lst))) nil)
        (
            (null (cdr (cdr (cdr lst))))
            (list (car (cdr lst)))
        )
        (
            t
            (
                append
                (list (car (cdr lst)))
                (my-middle (cdr lst))
            )
        )
    )
)

(
    defun my-last (lst)
    (
        cond
        ((null lst) nil)
        (
            (null (cdr lst))
            (car lst)
        )
        (
            t
            (my-last (cdr lst))
        )
    )
)

(
    defun f-l-swap (lst)
    (
        append
        (list (my-last lst))
        (my-middle lst)
        (list (car lst))
    )
)

(write (f-l-swap '((a d) f 10 w h)))