d2
  $ someCyclesBy "<0!32 1!8 0!24>" (slow 2) -- Pont
  $ fix (
  (ply "<2 [4 <2!3 <4 8>>]>")
  . (|* gain 1.2)
  . (# "[drum:2,dr]")
  ) ("d")
  $ stack [
  "k . k([3 <1 3>],8)" # "jazz",
  "d d d d",
  (fast 2 $ "~ snare:20"),
  ""
  ]
  # lpf 2000
  # gain 0.75
  # midiG' "^78" 0 0.7


do
let modIndex = pF "modIndex"
d1
-- $ slow 4 -- Helper: slow down
  $ note (
  -- midiOn "^43" (arp "up") -- Helper: arpegiate every other chord
  -- [8 LoFi Chord Progs](https://blog.landr.com/lofi-chord-progressions/)
  --
  -- # Dmin11, Efmin11 - Two Sad train tracks
  -- "<[d,f,a,c6,e6,g6] [ef, gf, bf, df6,f6,af6]>"
  --
  -- # Amin11, D7, Fmaj7, Cmaj7 - Pure bliss
  "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
  --
  -- # Cmin11,Fmin9,Cmin11,G7#5 - Enthusiasm
  -- "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
  - 12)
  -- TODO: Ebmaj9,Abmaj13 (3:34)
  -- TODO: Gmaj7+ (4:16?)
  -- TODO: Gmin9+ (5:13?)
  -- # "superpiano" # velocity 0.6
  # "FMRhodes1"
  -- # "FMRhodes2"
  # att 1 # rel 2
  # modIndex 0
  # room 0.8
  # dry 1
  # sz 0.2
  -- # midiG' "^79" 0 1.2
  # gain 0.7