-- Use analog synth & pico s mainly, high BPS, cool beat
bps(140/60)

let inverse 1 = 0
    inverse 0 = 1
in
  do
    let pat = "[1 0 0 1 0 0 1 0]"
    d1 $ gain pat # s "super808:3"
    d2 $ gain (inverse <$> pat) # s "superclap"
    d3 $ foldEvery [2,3] (0.25 <~) $ gain (pat) # s "future"
    d4 $ foldEvery [3,4] (0.5 <~) $ gain (pat) # s "supersnare"

d5 $ s (samples "anime" 2)
d5 $ silence

d5 $ every 4 (rev) $ gain "[1/2 0 0 1*2 1 0 1/2 1*2]"
# s (samples "anime" 2)
# cut 2

d6 $ every 2 (0.25 <~) $ s "supersnare*2 superhat/2 ~ superclap/2"
  # pan (rand)
  # up (run 6)
  # cut "0.5"
d6 $ silence

d7 $ s (samples "anime" 1) #cut 4
d7 $ silence

d7 $ every 3 (0.75 <~) $ s (samples "anime*8" 1) # cut 4
d7 $ silence

d8 $ every 2 (rev) $ s (samples "anime(3, 8) anime(5,8)" (irand 2))
# cut 8
# up 2

d8 $ s "anime"
d8 $ silence

d9 $ fast 4 $ s "anime" # pan(rand)
d9 $ silence