Циклический сдвиг списка влево - Prolog

Формулировка задачи:

Здравствуйте, нужно помочь написать программу на языке Prolog Написать программу для циклического сдвига списка на n-1 элементов влево. Так выглядит код на ~~Lips~~
Lisp

(defn f (n l)
    (def s (mod n (length l)))
    (append (drop s l) (take s l)))

а как этот код будет выглядеть в Prolog (просто интересно), да что лучше ~~Lips~~
или Prolog? Подскажите

Решение задачи: «Циклический сдвиг списка влево»

textual
                            Листинг программы 
                        
                            goal
 
  rotl(2, [1,2,3,4,5], Y), write(Y).