Dynamic comment prefix generator

This code constructs a list of pairs, where each pair consists 
of a formatted string prefix and a corresponding number. For 
example, (klevels ";;;" 2) produces ((";;; <1>" . 1) (";;; <2>" . 2)

(defun klevels (prefix n)
  (cl-loop for i from 1 to n
            collect (cons (format "%s %s%d%s" prefix "<" i ">") i)))

To make the prefix dynamically based on the major mode's comment 
character.  For single character comment strings, I want to repeat 
it three times.
comment declarations.