resetCycles

do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
  $ midiOn "^42" (<| "k k k k*<1!3 2>")
  $ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
  $ "kick:5"
d2 $ gM1 $ gF1
  $ fix (# lpf 2500) "h2ogmsn"
  $ midiOff "^43" (slow 2)
  $ "~ s ~ <s!3 s*[<4 4 2 4> <2!3 4>]>"
  # "[db:11,h2ogmsn:12]"
  # "[dr55:3]"
d3 $ gM2 $ gF1
  $ midiOn "^76" (ply "2 <2 4>")
  $ someCyclesBy "<0 0.4>" (jux $ swing 2)
  $ "<hh(<3!3 [3 5]>,8)!3 [hh(3,8) hh(<3!3 5>,8)]>"
  # "rampleA4:6" # gain 0.5
  # room 0.2
  # size 0.9
  # dry 0.9
  # pan (range 0.2 0.8 (slow 4 perlin))
d4 $ gM3 $ gF2
  $ midiOn "^57" (>| note ("<d d <d g> <a d d a>>" - 2 - 12))
  $ note ("d" - 2 - 12)
  # "90s_synatm:2"
  # crushbus 41 (range 12 1.4 "^53")
  # octerbus 42 (range 0 1.4 "^33") 
  # cut 4
  # room 0.4
  # pan (slow 32 $ range 0.98 0.7 saw)
  # gain 0.7
d5 $ gM3 $ gF2
  $ fix (|* gain 0.7) (n 10)
  $ note "<<d!16 g!16> <d!16 g!16> d g [a@3 <~ bf>]>"
  # n "<5!24 10!8>" # "cbow"
  # crushbus 51 (range 12 2.4 "^54")
  # cut 5
  # gain 0.6
d7 $ gM3 $ gF3 -- Keys of Paradise
  $ midiOn "^91" (ply 2 . (# freeze 0.2))
  $ slice 4 "<[0 1] [2 3*<1 4>] [0 1] [2 1(<1 3>,8)]>"
  $ "nujazz_keys120:25/2"
  # octersub (slow 32 $ range 0.2 1.2 (saw+perlin/2))
  # cut 7
d8 $ gF1 $ gM1 -- Train break train wreck
  $ chop 16
  $ midiOff "^36" (loopAt 2)
  $ midiOff "^56" (loopAt 2)
  $ midiOn "^60" (loopAt 0.5)
  $ midiOn "^92" (ply "2 1 4 <2 1>")
  $ chop 4
  $ loopAt 4
  $ "jungle_breaks:45"
  # cut 8
d10 $ gM3 $ gF3
  $ note "<g3!3 a3>" # "90s_weird:1"
  # cut 10 # gain 0.8
  # pan (slow 4 "<0.2 0.42 0.68 0.8>")
d11 $ gF3 $ gM3
  $ note ("0(3,8)" + "<g4!3 a4 g4!3 a4 d4!3 d4s d4!3 a4s>")
  # "90s_synatm:13"
  # cut 11
  # gain 0.8
  # pan (slow 4 (1-"<0.2 0.42 0.68 0.8>"))
  # att 0.1
  # rel 2
d9 $ gF3 $ gM3 -- Submarine electric wave
  $ someCyclesBy "<0!6 0.5 1>" (# silence)
  $ note ("<g4!3 a4 g4!3 a4 d4!3 d4s d4!3 a4s>")
  # "90s_synatm:14"
  # cut 9
  # gain 0.8
  # crushbus 91 (slow 16 $ range 16 4.5 (perlin - (slow 8 saw)))
  # pan (slow 4 (1-"<0.2 0.42 0.68 0.8>"))