;; step  1: (require 'eieio)
;; setp  2: (defclass
;; step  3: `defvar'             -> `defclass'
;; step  4: `defun'              -> `cl-defmethod'
;; step  5: `bad-toronto--'      -> "" [i.e. bad-toronto--help -> help]
;; step  6: `interactive'        -> ""
;; step  7: (), (&rest _args) .. -> ((d toronto)), ((d toronto) &rest _args) ..
;; step  8: `with-slots'
;; step  9:  (draw)              -> (draw d)
;; step 10:  #'command           -> (lambda () (interactive) (command))