(in-package :cl-patterns)
(defun nchord (symbol &optional (base 0))
  "Return list of notes for chord names by SYMBOL over the BASE."
  (mapcar (lambda (note) (+ base note)) (chord-notes (chord symbol))))