; P15 Replicate the elements of a list a given number of times.

(def a (list "a" "b" "c"))

(func repli (lst cnt)
    (reduce
        (lambda (acc item)
            (def out acc)
            (for-count cnt
                (redef out
                    (append out item)))
            out)
            lst
            (list)))

(print (->string a))
(print (->string (repli a 3)))