        (concat (triples (runs [[0 -3] [-5 -3]])) (run [12 0])))))
 
 ;melody
-;bassline
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Canone alla quarta - Johann Sebastian Bach   ;;

    (=> melody (shift [1/2 0]) play-now#)
    (=> melody (skew pitch -) (shift [7/2 -3]) play-now#)))

;(canone-alla-quarta#)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Melody                                       ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(def melody 
  (let [call
          [(repeats [[2 1/4] [1 1/2] [14 1/4] [1 3/2]])
