 (buffer-write! bass-notes-b    (take 128 (cycle (map note bass-score))))
 (buffer-write! bass-notes-b    (take 128 (cycle (map #(+ -12 (note %)) score))))
 
-(buffer-write! score-b    (take 128 (cycle (map #(+ 0 ( note %)) score))))
+(buffer-write! score-b    (take 128 (cycle (map #(+ 0 ( note %)) n-score))))
 (buffer-write! duration-b (take 128 (cycle duration)))
 
 (ctl root-trigger :rate 100)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Go forth and make sounds ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(do
  (voice/the-end)
  (println art/end)
)

;;;;;;;;;;;
(do (println art/samples) (voice/samples))

(def clap-s (freesound-sample 48310))
(def clap2-s (freesound-sample 132676))

(def waves-s (freesound-sample 163120))
(def waves (waves-s :rate 0.8 :vol 0.5))
