;; add pedal value a to list of notes b
;; basically zip value a into list b
(define pedal
(lambda (a b)
(flatten (map (lambda (x)
(if (list? a)
(list x b)
(list a x)))
(if (list? a) a b)))))