;; always requires type, will default to *root* if second arg not provided (define chrd (lambda (type . args) (pc:chord (if (null? args) *root* (modulo (car args) 12)) type)))