# eval "progn" -code with c-x c-e. Let's see when chars > 255 works.

;(string 36 45)
(progn
  (defun rr (str index offset max)
    (aset str index (int-to-char (+ index offset)))
    (setq index (+ index 1))
    (if (< index max)
	(rr str index offset max)))

  (defun chrstr (first last)
    (let ((str (make-string (- last first) ?x)))
      (rr str 0 first (- last first))
      str))
  (let ((crs (concat (chrstr 32 127) "\n;" (chrstr 160 256) "\n\n;")))
    (insert "\n\n" (emacs-version) "\n\n;" crs)
    (insert-face crs 'bold)
    (insert-face crs 'italic)
    (insert-face crs 'bold-italic)
    ))