// Poems, Prayers and Promises — John Denver
// 76 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (4/4 at bar 1, 5/4 at bar 27, 4/4 at bar 28, 2/4 at bar 36, ...) are rendered on a constant 4/4 grid of one bar per cycle
// note: Full arrangement: all 75 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): guitar program 24.
setcpm(76/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once · [...]/2 spreads a riff over 2 bars.
// A part's distinct bars are riffs (A, B, C...) played in order: edit a riff to change every repeat.

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  A B C D E@2 F G H@2 I J K@2 L M N@2 O@4 P Q R S T@7 U@2 V@2 W X Y@2 Z AA AB@2 AC AD AE@2 AF AG AH@2 AI AJ AK@2 AL AM
  AN AO@2 AP AQ AR AS AT AU AV AW AX AY@4
>`.pickRestart({
  A: "[d2,f#4,d5]@4 c#5 d5@3 b4 a4@3 f#4@2 d4@2, ~ [a2,f#4] [d2,f#4] a2", // D
  B: "e4 f#4@2 ~@2 f#4 e4@2 [b3,d4]@2 [g3,b3]@2 [d2,f#3,a3]@4, [d2,d4]@3 a4@2 ~@11, ~ [a2,d4] g2 ~", // Bm G D D5
  C: "a4@2 a4@2 [d4,f#4,a4] [d4,f#4,b4]@2 ~@3 [f#4,a4]@2 ~@2 e4@2, [d2,d3,d4,f#4]@4 a2@3 [d4,f#4,b4]@3 d4@6, ~@2 [d2,d3] a2, ~@13 f#4@3", // D Bm F#m D Bm D
  D: "[g2,a3,b3,d4]@3 d3 [g2,b3,d4,f#4]@2 [d2,d3]@4 a2@2 b2@2 d3@2, ~@3 [a3,d4,f#4]@5", // G Gmaj7 D
  E: "[[d2,d3,d4,f#4,a4]@3 a4 [d4,f#4,b4] [d4,f#4,b4]@2 ~ [d2,d3]@3 a4 [a3,d4,g4] [a3,d4,f#4]@2 ~ g2@3 g2 d3@3 d3 g2@3 g2 e3 d3 ~ d4, ~@4 a2@3 [d4,f#4,a4]@5 a2@3 [a3,b3]@17, ~@15 d4@13 ~@2 g2@2]/2", // D Bm D Dsus4 D Asus2
  F: "a4@2 a4@2 [d4,f#4,b4]@2 [d4,f#4,b4] ~@5 a3 ~ f#4 e4, [d2,d3,d4,f#4]@4 a2@3 [d4,f#4]@5 ~ d4@3, ~@7 b4@3 a4@4 ~@2, ~@2 [d2,d3] a2", // Bm D
  G: "[g2,a3,b3,d4]@3 d3 [g2,b3,d4,a4]@2 ~@4 c#3@2 b2@2 ~ d4, ~@3 [d2,d3]@2 ~@2 a2, ~@7 [a3,d4]@9, ~@7 f#4@5 ~@4", // G D D5
  H: "[[d2,d3,d4,f#4,a4]@3 a4 [d4,f#4,b4] [d4,f#4,b4]@2 ~ [d2,d3]@3 a4 [a3,d4,g4] [a3,d4,f#4]@2 ~ g2@2 d3 e3 d2@2 d3@2 g2@2 d3 e3 g2@2 ~ d4, ~@4 a2@3 [d4,f#4,a4]@5 a2@3 [a3,b3]@17, ~@15 d4@13 ~@2 d3@2]/2", // D Bm D Dsus4 D Asus2
  I: "[d2,d3,d4,f#4,a4]@3 a4 [d4,f#4,b4]@2 [d4,f#4,b4] ~@5 a2 d3 a2@2, ~@4 a2@3 [d4,f#4,b4]@3 [d4,f#4,a4]@6, ~@2 [d2,d3] ~", // D Bm D
  J: "d4 d4@2 d3 d4@2 e4@2 [d2,d3]@3 d3 a2@2 b2@2, [g2,a3,b3]!2 [a3,d4,f#4]@2", // D G D
  K: "[[d2,d3,d4,f#4,a4]@3 a4 [d4,f#4,b4] [d4,f#4,b4]@2 ~ [d2,d3]@3 a4 [a3,d4,g4] [a3,d4,f#4]@2 ~ g2@2 d3 e3 d2@2 d3@2 g2@2 d3 e3 ~@2 a4@2, ~@4 a2@3 [d4,f#4,a4]@5 a2@3 [a3,b3]@17, ~@15 d4@13 g2@4]/2", // D Bm D Dsus4 D Asus2
  L: "a4@2 a4@2 [d4,f#4,b4]@2 [d4,f#4,b4] ~@5 a2 b2 d3@2, [d2,d3,d4,f#4]@4 a2@3 [d4,f#4,b4]@3 [d4,f#4,a4]@6, ~@2 [d2,d3] ~", // Bm D Bm D
  M: "[g2,a3,b3,d4]@3 d4 [a3,b3,d4] [a3,b3,e4]@2 ~ [d2,d3]@3 d3 b2@2 a2@2, ~@4 g2@3 [a3,d4,f#4]@9", // G Bm7 Asus2 D
  N: "[[d2,d3,d4,f#4,a4]@3 a4 [d4,f#4,b4] [d4,f#4,b4]@2 ~ [d2,d3]@3 a4 [a3,d4,g4] [a3,d4,f#4]@2 ~ g2@2 d3 e3 d2@2 d3@2 g2@2 d3 e3 ~@2 g4@2, ~@4 a2@3 [d4,f#4,a4]@5 a2@3 [a3,b3]@17, ~@15 d4@13 d2@4]/2", // D Bm D Dsus4 D Asus2
  O: "[[g2,b3,d4,g4]@3 g4 [d4,g4] [d4,g4,a4]@2 ~ a2@3 b4 [c#4,g4,b4]@2 [c#4,g4,b4] ~@3 a4@2 a4 g4 f#4@2 [g2,b3,d4,g4]@3 g4 [b3,d4,a4] [b3,d4,g4]@2 ~ [d2,d3]@3 f#4 [a3,d4,f#4] [a3,d4,f#4]@2 ~ b2@3 f#4 [f#3,b3,e4]@2 [f#3,b3,d4] ~ e2@3 e2 ~ g3 b3@2 a2@3 a2 ~ g3 [c#4,g4]@2, ~@4 g2@3 [c#4,g4,b4]@5 a2@3 [d4,f#4]@5 ~@11 [a3,d4,f#4]@5 ~@3 [b3,d4,g4]@5 ~@3 e4@13 ~@4, ~@15 b4@3 ~@29 [g3,b3]@6 ~@3 [g3,c#4]@5 ~@3, ~@4 [d2,d3] [d2,d3,a3,d4] ~ g2 ~ [d2,d3] ~ b2 ~ e2 ~ a2]/4", // G G5 Dsus4 C#m7b5 G Bm7 G D …
  P: "g4@2 ~ g2 [d4,g4]@2 [d4,g4,a4] ~ a2@3 a2 ~@2 b4@2, [g2,b3,d4]@4 g2@3 b4@7 ~@2, ~@2 g4@2 ~@3 [c#4,g4]@9, ~@3 a2", // G5 Dsus4 G C#dim
  Q: "[d2,d3,d4,f#4,b4]@3 a4 [d4,a4] [a3,d4,f#4]@2 ~ g2@3 g4!2 a4 g4@2, ~@4 [d2,d3]@3 [b3,d4,g4]@5 [g2,b3,d4]@4", // Bm D5 D G
  R: "[d2,d3,a3,d4,f#4]@3 f#4 [a3,d4,f#4] [a3,d4,f#4]@2 ~@2 f#4@3 e4 d4@3, ~@4 [d2,d3]@3 [b3,d4]@5 ~@4, ~@7 g4@2 ~@7, ~@2 b2 [b2,f#3,b3]", // D Bm B5
  S: "[e2,g3,b3,g4]@3 f#4 [g3,b3,e4]@2 [g3,b3,d4] ~ a2@3 a2 a2@3 e4, ~@4 e2@3 [g3,c#4,e4]@9", // Em G C#dim
  T: "[[c#4,f#4] [c#4,f#4,a4]@2 ~ g2@3 b4 [g2,d4,g4,b4]@3 b4 [c#4,f#4,c#5] [c#4,f#4,b4]@2 ~ f#2@3 a4 [g2,b3,d4,g4]@3 a4 [g2,d4,g4,b4]@3 b4!2 ~@3 [d2,d3]@3 f#4 [a3,f#4]@3 a4 a4@2 a4@2 b4 a4@2 ~ a3@3 b4 [g3,b4]@3 a4 g4@2 f#4 ~ e3@4 ~@2 b4@2 [g2,d4,g4,b4]@3 b4 b4@2 d5 ~@2 b4 ~@2 f#2@3 f#2 ~@2 b4!2 [e2,b4]@3 b4 [f#4,a4]@2 ~@2 d2@3 f#4 [a3,f#4]@3 a4 a4@2 a4@2 [d3,f#3,c#4,b4]@3 a4, a2@3 [d4,g4,b4]@5 ~@4 f#2@3 [c#4,f#4,a4]@5 ~@8 [d4,f#4]@8 [d3,d4]@8 [d3,c#4]@8 [g2,b3]@7 a4@5 a3@4 ~@7 c#5@2 ~ a4@6 ~@20 f#3@4 ~@4, ~@28 [d2,d3]@4 ~@15 f#4@4 ~@8 c#4@9 ~@7 [c#4,f#4]@9 [e4,g4]@8 ~@2 [d4,f#4]@6 [d3,d4]@8 ~@4, ~@29 a4@6 ~@5 f#3@4 f#3@4 ~@8 f#3@4 a2@8 ~@4 [g2,d4,g4]@4 f#2@4 ~@4 e2@4 ~@4 d2@4 ~@16]/7", // F#5 F#m G F#5 F#sus4 G D G …
  U: "[[a3,a4]@3 a4 g4 f#4@2 ~@3 [b3,d4]@2 e3@4 a3@4 e4 c#4 a3 a4 e4 c#4 c#5 a4 [d2,f#4,d5]@4, ~ g2@2 [a2,c#4,e4]@2 a2@2 ~, ~@4 [g3,b3]@3 [b3,e4]@3 ~@22, ~@2 f#3 ~@5]/2", // A Bm D A G E5
  V: "[c#5 d5@3 b4 a4@3 f#4@2 d4@2 e4 f#4@2 ~@2 f#4 e4@2 [b3,d4]@2 [g3,b3]@2 ~@2 a4@2 a4@2 a4@2, [a2,f#4]@4 [d2,f#4]@4 a2@4 [d2,d4]@3 a4@2 ~@15, ~@4 [a2,d4] g2 [d2,f#3,a3] [d2,d3,d4,f#4]]/2", // Bm G D D5 D
  W: "[d4,f#4,a4] [d4,f#4,b4]@2 ~@3 [f#4,a4]@2 ~@2 e4@2 [g2,a3,b3,d4]@3 d3, a2@3 [d4,f#4,b4]@3 d4@6 ~@4, ~ [d2,d3] a2 ~, ~@9 f#4@3 ~@4", // D Bm F#m G Bm D
  X: "[g2,b3,d4,f#4]@2 [d2,d3]@4 a2@2 b2@2 d3@2 [d2,d3,d4,f#4,a4]@3 a4, ~ [a3,d4,f#4]@5 ~@2", // Gmaj7 D
  Y: "[[d4,f#4,b4] [d4,f#4,b4]@2 ~ [d2,d3]@3 a4 [a3,d4,g4] [a3,d4,f#4]@2 ~ g2@3 g2 d3@3 d3 g2@3 g2 e3 d3 ~ d4 a4@2 a4@2, a2@3 [d4,f#4,a4]@5 a2@3 [a3,b3]@17 ~@4, ~@11 d4@13 ~@2 g2@2 [d2,d3,d4,f#4]@4]/2", // Bm D Dsus4 D Asus2 D
  Z: "[d4,f#4,b4]@2 [d4,f#4,b4] ~@5 a3 ~ f#4 e4 [g2,a3,b3,d4]@3 d3, a2@3 [d4,f#4]@5 ~ d4@3 ~@4, ~@3 b4@3 a4@4 ~@6, ~ [d2,d3] a2 ~", // Bm G D
  AA: "[g2,b3,d4,a4]@2 ~@4 c#3@2 b2@2 ~ d4 [d2,d3,d4,f#4,a4]@3 a4, ~ [d2,d3]@2 ~@2 a2 ~@2, ~@3 [a3,d4]@9 ~@4, ~@3 f#4@5 ~@8", // G D D5
  AB: "[[d4,f#4,b4] [d4,f#4,b4]@2 ~ [d2,d3]@3 a4 [a3,d4,g4] [a3,d4,f#4]@2 ~ g2@2 d3 e3 d2@2 d3@2 g2@2 d3 e3 g2@2 ~ d4 [d2,d3,d4,f#4,a4]@3 a4, a2@3 [d4,f#4,a4]@5 a2@3 [a3,b3]@17 ~@4, ~@11 d4@13 ~@2 d3@2 ~@4]/2", // Bm D Dsus4 D Asus2
  AC: "[d4,f#4,b4]@2 [d4,f#4,b4] ~@5 a2 d3 a2@2 d4 d4@2 d3, a2@3 [d4,f#4,b4]@3 [d4,f#4,a4]@6 ~@4, ~ [d2,d3] ~ [g2,a3,b3]", // Bm D G
  AD: "d4@2 e4@2 [d2,d3]@3 d3 a2@2 b2@2 [d2,d3,d4,f#4,a4]@3 a4, [g2,a3,b3] [a3,d4,f#4]@2 ~", // D G D
  AE: "[[d4,f#4,b4] [d4,f#4,b4]@2 ~ [d2,d3]@3 a4 [a3,d4,g4] [a3,d4,f#4]@2 ~ g2@2 d3 e3 d2@2 d3@2 g2@2 d3 e3 ~@2 a4@2 a4@2 a4@2, a2@3 [d4,f#4,a4]@5 a2@3 [a3,b3]@17 ~@4, ~@11 d4@13 g2@4 [d2,d3,d4,f#4]@4]/2", // Bm D Dsus4 D Asus2 D
  AF: "[d4,f#4,b4]@2 [d4,f#4,b4] ~@5 a2 b2 d3@2 [g2,a3,b3,d4]@3 d4, a2@3 [d4,f#4,b4]@3 [d4,f#4,a4]@6 ~@4, ~ [d2,d3] ~@2", // Bm G Bm D
  AG: "[a3,b3,d4] [a3,b3,e4]@2 ~ [d2,d3]@3 d3 b2@2 a2@2 [d2,d3,d4,f#4,a4]@3 a4, g2@3 [a3,d4,f#4]@9 ~@4", // Bm7 Asus2 D
  AH: "[[d4,f#4,b4] [d4,f#4,b4]@2 ~ [d2,d3]@3 a4 [a3,d4,g4] [a3,d4,f#4]@2 ~ g2@2 d3 e3 d2@2 d3@2 g2@2 d3 e3 ~@2 g4@2 [g2,b3,d4,g4]@3 g4, a2@3 [d4,f#4,a4]@5 a2@3 [a3,b3]@17 ~@4, ~@11 d4@13 d2@4 ~@4]/2", // Bm D Dsus4 D G D Asus2
  AI: "[d4,g4] [d4,g4,a4]@2 ~ a2@3 b4 [c#4,g4,b4]@2 [c#4,g4,b4] ~@3 a4@2, g2@3 [c#4,g4,b4]@5 a2@3 [d4,f#4]@5, ~@11 b4@3 ~@2, ~@3 [d2,d3]", // G5 Dsus4 C#m7b5 D
  AJ: "a4 g4 f#4@2 [g2,b3,d4,g4]@3 g4 [b3,d4,a4] [b3,d4,g4]@2 ~ [d2,d3]@3 f#4, [d2,d3,a3,d4]@4 ~@4 g2@3 [a3,d4,f#4]@5", // G Bm7 G D D5 D
  AK: "[[a3,d4,f#4] [a3,d4,f#4]@2 ~ b2@3 f#4 [f#3,b3,e4]@2 [f#3,b3,d4] ~ e2@3 e2 ~ g3 b3@2 a2@3 a2 ~ g3 [c#4,g4]@2 g4@2 ~ g2, [d2,d3]@3 [b3,d4,g4]@5 b2@3 e4@13 a2@4 [g2,b3,d4]@4, ~@11 [g3,b3]@5 e2@4 [g3,c#4]@5 ~@5 g4@2]/2", // D Esus2 Bm C#dim D G Gdim
  AL: "[d4,g4]@2 [d4,g4,a4] ~ a2@3 a2 ~@2 b4@2 [d2,d3,d4,f#4,b4]@3 a4, g2@3 [c#4,g4]@9 ~@4, ~@3 b4@7 ~@6, ~@2 a2 ~", // G5 Dsus4 Bm C#dim
  AM: "[d4,a4] [a3,d4,f#4]@2 ~ g2@3 g4!2 a4 g4@2 [d2,d3,a3,d4,f#4]@3 f#4, [d2,d3]@3 [b3,d4,g4]@5 [g2,b3,d4]@4 ~@4", // D5 D G
  AN: "[a3,d4,f#4] [a3,d4,f#4]@2 ~@2 f#4@3 e4 d4@3 [e2,g3,b3,g4]@3 f#4, [d2,d3]@3 [b3,d4]@5 ~@8, ~@3 g4@2 ~@11, ~ b2 [b2,f#3,b3] ~", // D Em D Bm B5
  AO: "[[g3,b3,e4]@2 [g3,b3,d4] ~ a2@3 a2 a2@3 e4 [c#4,f#4] [c#4,f#4,a4]@2 ~ g2@3 b4 [g2,d4,g4,b4]@3 b4 [c#4,f#4,c#5] [c#4,f#4,b4]@2 ~ f#2@3 a4, e2@3 [g3,c#4,e4]@9 a2@3 [d4,g4,b4]@5 ~@4 f#2@3 [c#4,f#4,a4]@5]/2", // Em G F#5 F#m G F#5 F#sus4 C#dim …
  AP: "[g2,b3,d4,g4]@3 a4 [g2,d4,g4,b4]@3 b4!2 ~@3 [d2,d3]@3 f#4, ~ [d4,f#4], ~@2 [d2,d3] ~, ~@9 a4@6 ~", // G D
  AQ: "[a3,f#4]@3 a4 a4@2 a4@2 b4 a4@2 ~ a3@3 b4, [d3,d4] [d3,c#4], ~@4 f#3@4 f#3@3 f#4@4 ~", // D Dmaj7
  AR: "[g3,b4]@3 a4 g4@2 f#4 ~ e3@4 ~@2 b4@2, [g2,b3]@7 c#4@9, ~@4 f#3@3 a4@5 a3@4, ~ a2", // G
  AS: "[g2,d4,g4,b4]@3 b4 b4@2 d5 ~@2 b4 ~@2 f#2@3 f#2, ~@4 [g2,d4,g4]@3 [c#4,f#4]@9, ~@7 c#5@2 ~ a4@6, ~@2 f#2 ~", // G G5 F#5
  AT: "~@2 b4!2 [e2,b4]@3 b4 [f#4,a4]@2 ~@2 d2@3 f#4, [e4,g4]@4 ~ [d4,f#4]@3, e2 ~ d2 ~", // E5 F#m Em D
  AU: "[a3,f#4]@3 a4 a4@2 a4@2 [f#3,b4]@3 a4 [a3,a4]@3 a4, [d3,d4] [d3,c#4], ~ f#3 ~@2", // D B5 A D Dmaj7
  AV: "g4 f#4@2 ~@3 [b3,d4]@2 e3@4 a3@4, g2 [a2,c#4,e4], [g3,b3]@3 [b3,e4]@3 ~@10, ~ f#3 ~@2", // Bm A G E5
  AW: "e4 c#4 a3 a4 e4 c#4 c#5 a4 [d2,f#4,d5]@4 c#5 d5@3, a2@2 ~ [a2,f#4]", // D
  AX: "b4 a4@3 f#4@2 d4@2 e4 f#4@2 ~@2 f#4 e4@2, [d2,f#4]@4 a2@4 [d2,d4]@3 a4@2 ~@3, ~@3 [a2,d4]", // D D5
  AY: "[[b3,d4] [g3,b3] [d2,f#3,a3]@26 ~@4, g2 ~@15]/4", // Bm G D
})).s("gm_acoustic_guitar_steel").gain(0.64)

// bass · acoustic bass
const bass = note(`<
  A B A C A D A E A F G H A F I J A K L M N O P M N Q R S T@3 U V@3 W X Y Z AA AB Y AC AA AD AE AF AA AG AH AI AA AJ AK
  AG AL AM AN AG AO AP AQ AR AS AT AU AV AS AT AW A AX@4
>`.pickRestart({
  A: "d1 a1 d1 a1", B: "d1 a1 g1 d1", C: "g1@3 ~ g1@2 d1@4 a1@2 b1@2 d2@2", D: "g1@2 d2@2 g1@2 e2 g1",
  E: "g1@3 ~ g1@2 d2@4 c#2@2 b1@2 a1@2", F: "g1 d1 g1!2", G: "d1@2 a1@2 d1@2 a1!2", H: "g1@3 ~ g1@4 d1@3 d2 a1@2 b1@2",
  I: "d1@2 a1@2 d1@2 a1 d2", J: "g1@4 g1@4 d1@3 d2 b1@2 a1@2", K: "g1 d1 g1 d1", L: "g1!2 a1!2", M: "d1!2 g1!2",
  N: "d1!2 b1!2", O: "e1@3 e1 e1@4 a1@3 a1 a1@4", P: "g1@3 g1 g1@4 a1@3 a1 a1@4", Q: "e1@4 e1@4 a1@3 a1 a1@4",
  R: "a1 g1!2 f#1", S: "f#1 g1!2 d1", T: "[d1 d2@2 d2@2 g1@2 a1@2 g1!2 f#1]/3", U: "f#1@3 f#1 e1@4 e1@4 d1@4",
  V: "[d1 d2@2 d2@2 g1@2 a1@2 a1@2 d1]/3", W: "a1 d1 a1 d1", X: "a1 g1 d1!2", Y: "a1@4 d1@4 a1@4 g1@3 ~",
  Z: "g1 d1@2 a1 b1 d2 d1@2", AA: "a1 d1 a1 g1", AB: "d2@2 g1@2 d2 g1 d1@2", AC: "g1 d2@2 c#2 b1 a1 d1@2",
  AD: "d1@2 g1@2 g1 d2 d1@2", AE: "a1@4 d1@4 a1@2 a1@2 g1@3 ~", AF: "g1@4 d1@3 d2 a1@2 b1@2 d1@4", AG: "d1 g1!2 d1",
  AH: "a1@2 d1@2 a1 d2 g1@2", AI: "g1@4 d1@3 d2 b1@2 a1@2 d1@4", AJ: "d1 g1 d1 g1", AK: "g1 a1!2 d1",
  AL: "d1@4 b1@4 b1@4 e1@3 e1", AM: "e1@4 a1@3 a1 a1@4 g1@3 g1", AN: "g1@4 a1@3 a1 a1@4 d1@4", AO: "d1 b1!2 e1",
  AP: "e1@4 a1@3 a1 a1@4 a1@4", AQ: "g1!2 f#1!2", AR: "g1!2 d1!2", AS: "d2!2", AT: "g1 a1",
  AU: "g1@4 g1@4 f#1@4 f#1@3 f#1", AV: "e1!2 d1!2", AW: "a1@2 d1 a1", AX: "[g1 d1@13 ~@2]/4",
})).s("gm_acoustic_bass").gain(0.48).pan(0.4)

stack(acoustic_guitar_steel, bass)