setcps(110 / 60 / 4)


do
  resetCycles
  d1 $ stack [
    off (1/12) ((# up (scale "dorian" "<7!4 8 [8 6] 7!2>")) . (# krush 3)) $
    off (3/24) ((# up (scale "dorian" "<1 2 -1 3>")) . (# pan ( slow 4 $ sine ))) $
    echo 2 (1/8) (range 0.7 0.9 $ saw ) $ s "[cpluck:4!2 ~]*2" # lpf 500 # krush ( range 0.61 1.3 $ slow 3 $ sine )
    ]
  d2 $ stack [
    s "[~ akailinnbd]*2" # room 0.2 # lpf 800
    , s "[~ akailinnsd]*2" # room 0.1 # lpf (range 1600 2300 $ slow 3 saw)
    , sometimes (superimpose (# up "[12|-12]")) $ s "akailinnhh*12" # lpf 600
    ]
  d3 $ n ("c4*4" |+ (scale "dorian" "-4")) # s "superfm" # krush (range 1.3 2.3 $ slow 2 saw)