Пока первый аргумент не
(defun mapf (fl el)
(cond ; Пока первый аргумент не пуст,
(fl (cons ((car fl) el )
; применяем очередную функцию
; ко второму аргументу
(mapf (cdr fl) el)
; и переходим к остальным функциям,
) ) )) ; собирая их результаты в общий список
(mapf '(length car cdr)'(a b c d));=(4 a(b c d))
