(define rel (lambda (pitch i . args) (pc:relative pitch i (if (null? args) *scale* (map (lambda (pitch) (modulo pitch 12)) (car args))))))