(define scale
(lambda (octave num . args)
(let ((stepsize (get-scale-stepsize args))
(scale (get-scale-scale args)))
(map (lambda (x)
(pc:relative (+ 12 (car scale) (* 12 octave)) (* x stepsize) scale))
(range 0 num)))))