TidalCycles

d1 $ jux (every 3 (fast 2)) $ every 4 (rev) $ sound "bd*2 sn*4" # up (choose[0,4,7]) # n (choose[0,1,2,3])

d2 $ sound "arpy*8" # n "0 1 2 3" # gain "0.8"

d3 $ sound "supersaw:0*2 ~" # sustain "0.3" # gain "0.4"