;; scale, qnt and rel take an optional *scale* argument
(define get-scale-stepsize
(lambda (args)
(cond ((null? args) 1)
((number? (car args)) (car args))
((null? (cdr args)) 1)
((number? (cadr args)) (cadr args))
(else 1))))