(define get-scale-scale
(lambda (args)
(map (lambda (pitch) (modulo pitch 12))
(cond ((null? args) *scale*)
((list? (car args)) (car args))
((null? (cdr args)) *scale*)
((list? (cadr args)) (cadr args))
(else *scale*)))))