Лабораторная работа по Haskell

[Alitar32]

сем привет,помогите please с лабой. Haskell вообще не понимаю,а завтра последний день сдачи.

Даны два списка L1, L2 элементов типа symbol. Если L1 есть подсписок L2, то определить следующий после L1 элемент списка L2, иначе ответом является слово no.

Есть реализация на lisp ->

(defun subT (L1 L2)
(cond
((equal L1 L2) T)
((null L1) L2)
((equal (car L1) (car L2))
(subT (cdr L1) (cdr L2)))))

(defun sub (L1 L2)
(if (null L2) nil
((lambda (result)
(cond
((eq result T) nil)
((consp result) (car result))
(T (sub L1 (cdr L2)))))
(subT L1 L2))))