 
 ;; to stop
 (reset! cont false)
+
+(odoc choose)
+(odoc choose-n)
+(odoc weighted-coin)
+(odoc nth)
 
 ;; Page 36
 

  ;; .playは後で
  (defsynth choos [] (out gate-b (pan2 (play-buf 1 chooston :loop 1) -0.5))))

(hous [:tail pb-group]) ;.play(~pbGroup)
;; hous -> gate-b -> out 0
;; hous -> gate-syn
;; hous -> gate-b -> mod-b -> delay-b -> out 0

;; hous -> pb-group -> c-syn -> d-syn <- m-syn <- g-syn
;; hous -> group -> control-syn -> delay-syn <- mod-syn <- gate-syn

;.play(~pbGroup)
(choos [:tail pb-group])

(stop)

