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]>>"
  --
  -- # Ebmaj9,Abmaj13 - ???(3:34) - Very uplfting
  -- "<[f,gs,c,ef,g6,bf6] [ef,g,bf,d6,f6,as6]>"
  - 24)
  -- TODO: Gmaj7+ (4:16?)
  -- TODO: Gmin9+ (5:13?)
  -- # "superpiano" # velocity 0.6
  # "FMRhodes1"
  -- # "FMRhodes2"
  # att 0.1 # rel 2
  # modIndex 0
  # room 0.8
  # dry 1
  # sz 0.2
  -- # midiG' "^79" 0 1.2
  # gain 0.9


  -- LOFI CHORDS FROM RANDOM WEB
  d4 $ gF2
    -- $ note "[c3,ef3,g3,as3,d4,f4]"
    $ note "<[c3,f4] <[c3,as4] [b2,ef3]>>"
    # "bassWarsaw"
    # midiG' "^81" 0 1.2
  d6 $ gF3
    $ (superimpose (struct "t*8" . arp "down"))
    $ note "<[c3,ef3,g3,as3,d4,f4] <[c3,f3,gs3,c4,ef4,g4,as4] [b2,ef3,f3,g3,b4,ef4]>>"
    # "FMRhodes1"
    # modIndex (range 0 16 "^54")
    # midiG' "^82" 0 1.2
