(require 'cl-macs)

(defun define-keys (keymap command key &rest keys)
  (let ((all-keys (cons key keys)))
    (cl-loop for k in all-keys do
             (define-key keymap k command) )))

(provide 'keys)