; bowed string (jmcc)
(withSc3
 (overlapTextureUgen
  (list 5 2 12 +inf.0)
  (let* ((root 5)
         (scale (map (lambda (n) (+ n root)) (list 0 2 4 5 7 9 11)))
         (oct (list 24 36 48 60 72 84))
         (s:l-choose (lambda (l) (kr: (Select (IRand 0 (length l)) (make-mce l)))))
         (f (MidiCps (Add (s:l-choose scale) (s:l-choose oct))))
         (n0 (mceFill 2 (lambda (_) (BrownNoise))))
         (r0 (ExpRand 0.125 0.5))
         (n1 (LFNoise1 r0))
         (r1 (Rand 0.7 0.9))
         (r2 (replicateM 12 (lambda () (Rand 1.0 3.0))))
         (x (Mul3 n0 0.007 (Max 0 (MulAdd n1 0.6 0.4))))
         (d (klankData ((series-with Add) 12 f f) ((series-with Mul) 12 1 r1) r2))
         (k (Klank x 1 0 1 d)))
    (SoftClip (Mul k 0.1)))))