Несложное задание по LISP

Надо замутить функ.

)Функция SUCHTHAT2 - проверяет, содержится в данном списке хотя бы один элемент с заданным свойством. Если да, то к хвосту заданного списка, начиная с найденного элемента, применяется функция, название или определенный выражение которой задано как значение третьего аргумента (функционального). Если нет, то возвращается значение NIL.

2)Функция TCONC - помещает значение своего первого аргумента в конец очереди, представленной вторым аргументом. Если эта очередь пуста, то формируется очередь, состоящая из одного элемента. Под очередью понимается списочная структура, состоящая из некоторого списка и лисповской ячейки, содержащей указатели на первый и последний элементы этого списка

3)Функция MAP - имеет смысл, если функция F, заданная вторым аргументом, обладаем каким-либо побочным эффектом. Эта функция последовательно применяется к тем же аргументов, что и в случае функции MAPLИST, но полученные значения никак не используются и не сохраняются. Значение функции MAP равна NИL (а если очередной аргумент, подготовленный при обращении к функции F, окажется атомом, то этому атому).