setcps(97 / 60 / 4)

d1 $ stack [
  every 2 (while "t f" $ swing 2) $ s "akailinnbd*4"
  , s "akailinnht*2"
  , ((0.025 * perlin) ~>) $ s "akailinnsd*2"
  , s "[~ akailinnoh]/4"
  ]

d2 $ s "[~ cpluck:3]*6"
   # krush (range 0.3 0.7 $ slow 2 sine)
   # pan (slow 2 cosine)
   # up (scale "dorian" ((1/4) ~> "<0!3 <1!2 -1>>"))
   # crush (range 6 10 $ slow 2 perlin)

d3 $ n "[~ <d2*2!2 d2*3>]*2" |* n "[1,1.01]" # s "superfm" # legato 2 # amp 0.2