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