(defn format-lic [lic] (apply str (drop-last (interleave (map #(apply str %1) (partition 5 lic)) "---- "))))
(println (format-lic "ABCSADDSKJKJKJKJKJKJKJKJHGGGFGG"))