(defun align-center (strings)
    (let* ((maxl (find-max [mapcar len strings])))
      (mapcar (op fmt "~^*a" maxl) strings)))