(defun normaliziraj (L)
    (cond
        ((null L) nil)
        ((listp (car L)) (append (normaliziraj (car L)) (normaliziraj (cdr L))))
        (T (cons (car L) (normaliziraj (cdr L))))
    )
)

(defun num_occurrences (sub L)
    (cond
        ((or (< (length L) (length sub))(null L)) 0)
        ((equal sub (subseq L 0 (length sub))) (+ 1 (num_occurrences sub (cdr L))))
        (T (num_occurrences sub (cdr L)))
    )
)

(defun tmp (n L L1 fin)
    (cond
        ((or (< (length L) (length fin))(null L)) fin)
        ((> (num_occurrences (subseq L 0 n) L1) (num_occurrences fin L1)) (tmp n (cdr L) L1 (subseq L 0 n)))
        (T (tmp n (cdr L) L1 fin))
    )
)

(defun najcesto_povtoruvana_podniza (n L)
    (tmp n (normaliziraj L) (normaliziraj L) (subseq (normaliziraj L) 0 n))
)