{ f: 311.127, l: 1, g: 1, p: 0 }

thing1 = {
  O[
    (2/1, 0, 1, 1/3),
    (2/1, 0, 1, 1/2),
    (1/1, 0, 1, 1/4),
    (1/1, 0, 1, -1/5),
    (1/2, 0, 1, 1),
    (1/2, 0, 1, -1),
  ]
  | Seq [
    Fm 1, Fm 3/4, Fm 1/2, Fm 1/3, Fm 5/8, Fm 5/6, Fm 9/8, Fm 1
  ]
  | Seq [AsIs, Reverse]
}

thing2 = {
  O[
    (1/1, 1, 1, 1),
    (1/1, 0, 1, -1),
    (1/2, 1, 1, -1/3),
    (1/2, 0, 1, -1/2),
    (1/4, 1, 1, 1/8),
    (1/4, 0, 1, -1/8),
  ]
  | Seq [
    Fm 3/4
  ]
  | FitLength thing1
}

main = {
  Overlay [
    thing1,
    thing2
  ]
  | Overlay [
      Saw,
      Sine, 
      Square,
      Sine 3/2,
  ]
  | Seq [
     Lowpass 13/10 8.107,
     Lowpass 7/2 0.707,
  ]
  | Overlay [
     AsIs,
     -- Bandpass 2/1 2.107,
  ]
  | Seq [
    Pm 3/4, Pm -1
  ]
  | Repeat 4
  | Gm 1/8
  | Lm 1/7
  | Pm 1
}