   ;; .playは後で
   (defsynth choos [] (out gate-b (pan2 (play-buf 1 chooston :loop 1) -0.5))))
 
-(hous [:tail pb-group]) ;.play(~pbGroup)
+;; .play(~pbGroup)
+(hous [:tail pb-group])
+(stop)
 ;; hous -> gate-b -> out 0
 ;; hous -> gate-syn
 ;; hous -> gate-b -> mod-b -> delay-b -> out 0


  (future
    (loop []
      (let [density 1
            midi (choose [0 2 4 7 9])
            oct (choose [48 60 72])]
        (if (weighted-coin density)


;; to stop
(reset! cont false)

(odoc choose)
(odoc choose-n)
(odoc weighted-coin)
(odoc nth)

;; Page 36

