// Some Broken Hearts Never Mend — Telly Savalas
// 95 bpm, 2/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 121 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(95/2)

// 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.

// bass · acoustic bass · "Bass"
const bass = note(`<
  ~@4 A B C D E F A B A B G H C D A B A B C D C D I@2 G H A B J K L M A B C D E F A B A B G H C D A B A B C D E F A B A
  B G H C D A B A B C D C D I@2 G H A B J K L M A B C D E F A B A B G H C D A B A B C D E F A B A B G H C D A B N O P Q
  ~
>`.pickRestart({
  A: "a2 e2", B: "a2@7 ~ a2@6 ~@2", C: "e2 b2", D: "e2@7 ~ e2@6 ~@2", E: "b2@6 ~@2 b2@5 ~@3", F: "e2@6 ~@2 e2@5 ~@3",
  G: "d2 a2", H: "d2@7 ~ d2@6 ~@2", I: "a2@6 ~@2 a2@5 ~@3", J: "e2@7 ~ b2@8", K: "e2@4 b2@3 ~", L: "e2@8 b2@7 ~",
  M: "e2@7 ~ e2@7 ~", N: "a2@7 ~ e2@8", O: "a2@8 e2@7 ~", P: "a2@4 e2@3 ~", Q: "a2",
})).s("gm_acoustic_bass").gain(0.42)

// chords · piano
const piano = note(`<
  ~@4 A@2 B@2 C D A@4 E@2 B@2 A@4 B@4 F G E@2 A@2 H@3 ~ A@2 B@2 C D A@4 E@2 B@2 A@4 B@2 C D A@4 E@2 B@2 A@4 B@4 F G E@2
  A@2 H@3 ~ A@2 B@2 C D A@4 E@2 B@2 A@4 B@2 C D A@4 E@2 B@2 A@2 I@3 J ~
>`.pickRestart({
  A: "[c#4,e4,a4]/2", B: "[d4,e4,g#4,b4]/2", C: "[d4,f#4,a4,b4]", D: "[d4,e4,g#4,b4]", E: "[d4,f#4,a4]/2",
  F: "[c#4,e4,a4]", G: "[e4,g4,a4,c#5]", H: "[d4,e4,g#4,b4]/3",
  I: "[~@4 e5@16 ~@3 a2, ~ c#4@18 ~@5, ~@4 a4@35 ~@9, ~@3 c#5@17 ~@4]/3", J: "[c#4,a4,c#5,e5]",
})).s("gm_piano").gain(0.3)

// chords · acoustic guitar nylon · "Guitar"
const acoustic_guitar_nylon = note(`<
  ~@3 A B@2 C@2 D E F@2 G@2 H@2 I@4 F@2 J@2 C@2 K L M@2 F@2 N O P@2 G@2 J@2 Q R@3 G@2 S@2 N T@3 B@2 C@2 D E F@2 G@2 H@2
  I@4 F@2 J@2 C@2 K L M@2 F@2 N O P@2 G@2 J@2 Q R@3 G@2 S@2 N T@3 B@2 C@2 D E F@2 G@2 H@2 I@4 U V W@2 ~
>`.pickRestart({
  A: "~@7 c#4, ~@10 e4@5 ~, ~@3 a3",
  B: "[~@15 c#4, ~@2 a2@12 a4@8 ~@4 e4@5 ~, ~@3 e3@12 ~ a2@7 ~@5 a3@4, ~@3 a3@3 e4@6 c#4@10 c#4@7 ~@3, ~@2 c#4@3 a3@3 ~@2 a3@2 e3@4]/2",
  C: "[~@8 [e3,g#4]@2 ~@5 d4, g#4@12 b3@5 ~@3 b3@8 b3@4, e3@3 d4@4 d4@4 d4@3 ~@2, ~@2 b3@3 e4@2 ~@6 e4@2 ~, ~@4 g#3@3 ~@5 g#3@2 ~@2]/2", // E
  D: "~@6 f#4 a4, ~ a3@2 d4@5, ~ b3@3, ~@5 a3@2 ~", E: "~@6 [b3,e4] g#4, e3 d4 g#3 ~, ~ b3@2 g#4@2 d4@3",
  F: "[[a2,c#4]@2 ~@6 a2@2 ~@5 c#4, ~@4 a3@6 e4@4 c#4@8 c#4@4 e4@5 ~, ~@3 c#4@3 a3@4 a3@4 a3@2, ~@4 a2@3 ~ a4@6 ~@2, ~@3 e3]/2", // A
  G: "[~@15 a3, [a2,b3]@2 e3@3 c#4@7 c#3@2 e3@2, ~ c#4@2 a3@3 e3@4 e3@3 c#4@3, ~@4 c#3@3 a3@4 a3@4 ~, ~@8 [a2,e4]@7 ~]/2", // Asus2 A5
  H: "[~@15 a3, d3@8 a2@6 ~@2 d3@8 a2@7 ~, [a3,e4]@4 f#3@6 d4@4 a3@7 ~ a3@4 d4@4 ~@2, ~ f#4@6 ~ f#4@8, ~@3 a3@3 f#3@4 f#3@4 f#3@2]/2", // A5
  I: "[~@8 [e3,g#4]@2 ~@21 a3, g#4@12 b3@5 ~@3 b3@8 b3@8 e3@6 c#4@12 a3@4 c#4@6, e3@6 d4@8 d4@8 d4@6 ~@2 d4@8 a3@6 e3@4 a2@7 ~ c#3@4 ~@4, ~@2 b3@3 e4@2 ~@6 e4@2 ~ a4@7 ~ a4@8, ~@8 g#3@6 ~@10 g#3@4 ~@4 [a2,a3,c#4]@7 ~ c#3@6 a3@6 e3@8 e3@4]/4", // E A
  J: "[~@8 e3@2 ~@5 d4, ~ e3@2 d4@3 b3@4 b3@3 e4@3, ~@4 b3@6 e4@5 ~ g#4@16, ~@4 e3@3 d4@4 d4@3 b3@2, ~@3 g#3]/2",
  K: "[a2,c#4]@2 ~@5 c#4, ~@2 a3@3 e4@2 ~, ~@3 c#4@3 a3@2, ~@4 a2@3 ~", // A
  L: "~@6 [a3,e4] g4, a2 c#4 g3 ~, ~ a3@2 g4@2 c#4@3", // A5
  M: "[d4 ~@13 f#3 [d3,a3], a4@12 f#3@5 ~@3 f#3@6 d4@4 ~@2, [d3,a3]@3 a3@4 a3@4 a3@4 ~, ~@4 f#3@6 d4@5 ~ f#4@14 ~@2, ~@4 a2@3 ~ d3@4 a2@3 ~]/2", // D5
  N: "~@7 d4, e3@3 b3, g#4@3 d4@4 ~, ~@2 b3@3 e4@2 ~, ~@4 g#4@3 ~",
  O: "~@7 d4, [e3,g#4]@3 b3, ~@2 b3@3 e4@2 ~, ~@3 d4@4 ~, ~@4 g#3@3 ~", // E
  P: "[~@7 [b3,g#4], [e3,g#4]@7 e4@5 g#3@4, ~@4 b3@6 d4@7 ~@5 d4@10, ~ g#3 e3@2, ~@12 b3@5 ~@3 b3@6 e4@6]/2", // E
  Q: "~@6 [b3,f#4] a4, b2 d4 a3 ~, ~ b3@2 a4@2 d4@3", // B5
  R: "[~@6 e4 ~@16 a3, ~@2 g#3@4 d4@10 [a2,a3,c#4]@7 ~ c#3@4 e3@4 a2@6 a3@4 c#4@6, ~@4 b3@16 e3@6 c#4@13 ~ c#3@4 ~@4, ~@5 g#3@2 g#4@4 a3@4 a3@3 e3@4 e3@2, ~@8 a4@7 ~ a4@8]/3", // A
  S: "[~@15 a3, f#4@12 f#3@4 d3@7 ~ a2@6 ~@2, [d3,a3]@3 a3@4 a3@4 a3@3 f#3@2, ~@4 f#3@6 d4@4 ~@2 f#4@15 ~, ~@8 a2@7 ~@5 f#3@5 ~ d4@4 ~@2]/2", // D5
  T: "[~@23 a3, [e3,g#4]@6 b3@4 e3@3 c#4@6 a3@2 c#4@3, ~@4 b3@6 e4@4 ~@2 a4@12 e3@4 a2@7 ~ c#3@4 ~@4, ~@3 d4@4 d4@4 a3@4 a3@3 e3@4 e3@2, ~@8 g#3@6 ~@2 [a2,a3,c#4]@7 ~ c#3@6 ~@2 a4@16]/3", // E A
  U: "a2@3 ~ c#4@2 ~@2 a3@2 ~@4 e4@2, a4@7 ~, ~@3 e4@2 ~ c#4@2",
  V: "a2@4 c#4@2 ~@2 a3@3 ~@3 e4@2, a4@13 ~@3, ~@3 e4@2 ~ c#4@2",
  W: "[[a2,a4] ~@3 [a2,a4]@4, ~ c#4 a3 c#4@5, ~@3 e4@2 a4@2 e4@9]/2", // A
})).s("gm_acoustic_guitar_nylon").gain(0.25)

// chords · acoustic guitar steel · "Guitar"
const acoustic_guitar_steel = note(`<
  ~@7 A B@4 ~@3 C@3 D@4 E@4 F@7 G@2 H I ~@2 J K L@8 ~ M@4 ~ N O@4 ~@3 P@3 D@4 Q@4 F@7 G@2 H I ~@2 J K R@2 S ~ T U ~@3 V
  W X ~@2 A B@4 ~@3 Y ~@2 Z AA ~@5
>`.pickRestart({
  A: "~ f5 ~@4 g#4@2, ~ f#5@3, ~ d5, ~@5 b4@3",
  B: "[~@2 f#5@6 [g#4,e5]@4 ~@13 g#3@32 ~@7, a4@4 ~@2 [f#4,d5]@5 a3@16 ~@5, ~@2 g#4 g3@4 ~, ~@9 e4@16 ~@7, ~@5 b3@8 ~@3]/4", // C#m D
  C: "[c#4 d4 e4 ~ f#4@16 ~@4, a4@5 ~ e4@2 ~@40, ~@7 a4@32 ~@9]/3",
  D: "[~@4 e4 ~@12 a3@15, ~@10 e4@4 e4@4 e4@7 c#5@32 ~@7, ~@3 f#4@2 f#4@3 f#3@8, ~@2 c#4 [b4,e5]@4 ~, ~@11 a4@16 ~@5]/4", // E5
  E: "[~@11 b3 ~@6 f#3@2 [e3,g#3]@12, ~@7 g3@7 g#3 f#3 a3 e3@3 ~@12, ~@16 g#3@9 b3@15 ~@24, ~@9 b3@2 ~ a#3@8 ~@12, ~@5 c#4@5 ~@6]/4", // E
  F: "[~@2 a3 ~@15 d5@8 ~ f#5, e3@9 c4@16 ~@2 d5@7 b4@16 ~@6, a3@4 ~@2 b3@5 a4@14 a4@7 e5@16 ~@8, ~ f#3@19 c#4@32 b4@4 a#4@14 c#5@32 ~@10, ~@15 a3@9 g4@32 b4@8 c#5@2 a4@32 ~@14]/7",
  G: "[~@3 e5@19 [e4,c#5]@2 ~@4 b4@2 ~@2, f#5@2 f#5@20 ~@4 d4@5 ~, ~ g#5@21 ~@10]/2", // C#m
  H: "g4 ~ e4@2 [g4,g#4]@2 ~@2 [a3,f#4] ~ [g#3,e4]@2 [a3,f#4]@2 ~@2, ~ g#4@3 ~@12", I: "a3",
  J: "[f3,f#3] ~@3 e3 f#3 g#3 ~", K: "~@2 f#3@3 ~@11, b3@3 ~@5",
  L: "[~@8 g#3@2 ~ g#3 f#3@2 ~@55 c#4@3 ~@12 d4@4 [a3,d4]@32 ~@8, ~@5 a3 ~ g#3 a3@9 a3@16 ~ e4@3 e4@16 ~@11, ~@15 f#3@9 f#3@8 f#3@10 f#3@32 ~@6 f#4@32 ~@16, ~@13 e3@7 e3@16 c#4@16 ~@12, ~@36 b3@32 b3@13 a3@3 a4@32 ~@12]/8", // D5
  M: "[~@9 b4@2 ~@6 f#5@15, ~ d#4@10 c#5 b4@16 ~@4, ~@4 e4@21 c5@32 ~@7, ~@3 f#4@3 a4@5 a4@5 e5@16, ~@8 a4@2 b4@8 f#4@9 c#5@32 ~@5]/4",
  N: "~@3 g#4, ~ f5@7, ~ f#5@3, ~ d5, ~@5 b4@3",
  O: "[~@2 f#5@6 [g#4,e5]@4 ~@17 a3@32 ~@3, a4@4 ~@2 [f#4,d5]@5 a3 g3@16 ~@4, ~@16 g#4@9 g#3@32 ~@7, ~@9 e4@16 ~@7, ~@5 b3@8 ~@3]/4", // C#m D
  P: "[~ d4 e4!2 f#4@16 ~@4, [c#4,a4]@2 ~ a4@16 ~@5]/3", // F#m
  Q: "[~@11 b3 ~@6 f#3@2 [e3,g#3]@12, ~@8 e4@17 b3@3 g#3@2 f#3@2 a3@2 e3@6 ~@24, ~@4 b3@3 g3@13 ~@12, ~@9 c#4@7 g#3@2 b3@2 c#4@20 ~@24, ~@11 a3@13 a#3@16 ~@24]/4", // E
  R: "[~@8 g#3@2 ~@2 f#3@2 ~@2 a3 ~@7 f#3@2 e3@2 ~@4, ~@10 a3@2 ~@3 f#3@2 ~@15, ~@11 g#3@2 ~ g#3@2 ~@16]/2",
  S: "f#3 a3 b3 ~ e3 f#3 ~@2", T: "~@4 b3 c#4@2 ~@3 e4@2 ~@4, ~@4 e4@3 ~ c#4@8",
  U: "~ a3 ~@2 [d4,a4]@2 ~@2 [a3,d4]@2 ~@6, f#4 ~@7", V: "~@2 d#4@2 ~@2 f#4@2 a4@2 b4@2 a4@3 ~, ~@2 e4@5 ~",
  W: "~@2 [f#4,b4]@2 ~@2 [a4,c#5]@2 b4 c5 ~ c#5@2 ~@3", X: "e5 f#5 ~@6", Y: "c#4 d4 e4!2 f#4@4, a4@5 ~ a4@10",
  Z: "~@4 e4!2 f#4 e4", AA: "c#4@2 e4@2 f#4@2 a4@2 b4 c#5@2 ~@5, ~@8 e5@3 ~@5",
})).s("gm_acoustic_guitar_steel").gain(0.28)

// chords · acoustic guitar steel · "Guitar"
const acoustic_guitar_steel_2 = note(`<
  ~@4 A B C D E F G@2 H I J@2 K L M N ~@31 O P@2 Q R@3 S@2 T U@2 V W X Y Z AA AB AC AD AE AF AG@2 AH AI AJ AK AL AM AN@2
  ~@16 AO AP AQ AD AR@2 AS AT AU AV@2 AW AX AY AZ@2 BA@2 BB@2 ~
>`.pickRestart({
  A: "[c#4,d4] e4@14 ~, ~ d#4 ~@14", B: "[e4,f4] f#4@6 ~ c4 c#4@7", C: "e4@10 e4@5 ~", D: "d4@13 ~@3",
  E: "~@2 [e4,g#4]@2 ~@4 [e4,g#4]@4 [d4,d#4] ~@3", F: "[d4,f#4]@8 ~@2 e4 ~ f#4 ~@3",
  G: "[f#4@10 d#4 ~@5 [c#4,a4]@12 ~@4, ~@11 e4@17 ~@4]/2", H: "~ [c#4,a4]@3 [c#4,g#4]@2 [c#4,a4]@2",
  I: "[d4,d#4,b4,c5] [e4,c#5]@5 ~@4 [e4,g#4,c#5]@2 ~@4", // C#m
  J: "[e4@8 [e4,b4]@3 ~@13 e4 f#4@5 ~@2, c#5@4 ~@11 d4@8 ~ d4@6 ~@2, ~@16 a4@15 ~]/2", // E5
  K: "~ e4@6 ~ [d#4,g#4]@6 ~@2, c#4@5 ~@11", L: "[g#4,b4]@7 ~ g#4@5 ~@3, ~@4 c#5 ~@3, ~@8 b4 ~@7",
  M: "[c#4,a4]@7 c#4 d4@8", N: "[c#4,a4]@9 ~@7", O: "~@15 f3",
  P: "[[f#3,g3] g#3 ~@24 a4@2 [g#3,c#4] ~@3, ~ a3@18 a3@8 ~@5, ~ a4@2 c#4@4 ~, ~@10 e4@10 ~@2 e4@7 ~@3, ~@16 a4@9 ~@7]/2", // Gmaj7 C#5
  Q: "g#3@2 b3@3 ~ b3@2, g3 ~@3 g#4@10 ~@2, ~@5 e4@3",
  R: "[g#4@4 e4@6 g#4@2 e4@3 ~@17 g#4@5 ~@7 g#4@3 ~, b3@12 ~@3 g#3@11 e4@5 ~@7 e4@8 ~@2, ~@20 g#4@8 b3@8 ~@6 g#3@5 ~]/3",
  S: "[~@4 a4@7 ~@5 a4@9 ~@3 c#4 ~@3, a3@13 ~@3, ~@4 e4@5 ~@2 e4@14 ~ a4@3 ~@3, ~@12 c#4@14 ~ e4@2 ~@3]/2",
  T: "a3 ~ [e4,a4]@3 a4 c#4 ~", U: "[c#5@8 ~ [a3,c#5]@3 ~@3 [a3,b4]@7 ~@2 a4@5 ~@3, c#4@3 ~@29]/2",
  V: "[d4,f#4]@3 ~, a3 ~", W: "[b3,e4,g#4]@7 ~ [e3,b4]@7 ~", X: "[g#4,c#5]@8 [f#4,b4]@4 a#4 ~@3",
  Y: "[c#4,a4]@8 [d4,a4]@7 c#4, ~@8 c#4 ~@7", Z: "[c#4,a4] ~", AA: "~@10 b3 c4 c#4@4",
  AB: "e4@9 ~ b3 c#4@4 ~, ~@11 c4 ~@4", AC: "e4@10 ~ f4 f#4@3 ~, ~@5 e4 ~@2", AD: "e4@3 ~",
  AE: "e5 ~ c#5 b4 ~@2 g#4 f#4@2 ~ e4 c#4@2 ~@3", AF: "e4@6 e4 f4 f#4@4 e4@2 ~@2",
  AG: "[b3 c4 c#4@2 e4@2 ~@2 f#4@2 e4 ~ c#4 ~ a4@15 ~@3]/2", AH: "~@2 g4 a4@4 ~ g#4@4 a4@4, ~@3 g#4 ~@12",
  AI: "c#5@10 ~ b4@5", AJ: "b4@7 ~ a4@7 ~", AK: "e4@8 [e4,f4] f#4@7", AL: "~@8 g#4@7 ~, e4@15 ~",
  AM: "b4@7 a#4 c#5@5 ~@3", AN: "[a4@21 ~@11]/2", AO: "~@4 b3 c4 c#4@2 e4@3 ~ c#4@2 e4 ~", AP: "f#4@4 e4@2 c#4 ~",
  AQ: "e5@2 c#5 ~ b4 ~ g#4 ~ f#4@2 e4 ~ c#4@4", AR: "[b3 c4 c#4@2 e4 ~@3 e4@2 f#4@2 ~@3 g4@2 ~@4 f#4@2 ~@3 e4@2 ~@4]/2",
  AS: "~@2 a3@5 ~ c#4@4 e4@4", AT: "a4@13 ~@3", AU: "~@2 a4@5 ~ g#4@4 a4@4", AV: "[c#5@3 ~]/2",
  AW: "a4@4 f#4@4 a4@4 f#4@3 ~", AX: "[e4,g#4]@4 g#4@3 ~", AY: "b4@8 b4 [c5,c#5] ~ b4@2 ~@3",
  AZ: "[a4@5 ~@3 [a#3,b3] c4 ~@6 a4@12 ~@4, ~@9 c#4@19 ~@4]/2", BA: "[[a#3,b3] c4 ~@14 e4@7 ~ f#4@8, ~ c#4@11 ~@4]/2",
  BB: "[~@4 c#4@9 ~@3, e4@15 ~@17]/2",
})).s("gm_acoustic_guitar_steel").gain(0.48)

// chords · acoustic guitar steel · "Guitar" · soft notes
const acoustic_guitar_steel_3 = note(`<
  ~@8 A ~@8 B ~@37 C ~ D ~@2 E F ~ G H I J K ~@6 L ~@26 M ~@2 N ~@14 O ~
>`.pickRestart({
  A: "~@13 c#4 ~@2", B: "~@10 b4@5 ~", C: "~ g#4 ~@2", D: "~@3 g#3@7 ~@6", E: "~@11 e4@3 ~@2", F: "~@9 c#4@3 ~@4",
  G: "~@8 a3@3 ~@5", H: "~@7 d#4 ~@8", I: "~@12 [f4,a4] ~@3", J: "~ e4", K: "e4 ~", L: "~@11 c#4 ~@4", M: "~@13 e4 ~@2",
  N: "~@13 e4@2 ~", O: "f#4",
})).s("gm_acoustic_guitar_steel").gain(0.3)

// drums · kick
const kick = s("bd").struct(`<
  ~@3 A B C B C B C B C B C B C B C B A B C B C B C B C B C B C B C B A B C B C B C B C B C B C B C B A B C B C B C B C
  B C B C B C B A B C B C B C B C B C B C B C B A B C B C B C B C B C B C B C B A B C B C B C B C B C B C B C B A B C A
  B ~
>`.pickRestart({
  A: "x ~@4 x ~ x", B: "x", C: "x ~@6 x",
})).gain(0.3)

// drums · rim
const rim = s("rim").struct("<A@2 B C ~@14 D@18 ~@14 D@2 ~@14 D@18 ~@14 D@2 ~@14 D@5 ~@2>".pickRestart({
  A: "x", B: "x!2", C: "x!4", D: "~ x ~ x",
})).gain(0.3)

// drums · snare
const snare = s("sd").struct("<~@4 A@14 B@18 A@14 B@2 A@14 B@18 A@14 B@2 A@14 B@5 C ~>".pickRestart({
  A: "~ x!3", B: "~ x", C: "x",
})).gain(0.24)

// drums · hihat
const hihat = s("hh").struct("<~@3 A B@14 A@18 B@14 A@2 B@14 A@18 B@14 A@2 B@14 A@4 B C ~>".pickRestart({
  A: "~ x ~ x", B: "x!4", C: "x",
})).gain(0.36)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~@3 A ~@14 A@18 ~@14 A@2 ~@14 A@18 ~@14 A@2 ~@14 A@4 ~@3>".pickRestart({
  A: "x!2",
})).gain(0.24)

// drums · open hat
const open_hat = s("oh").struct("<~@3 A ~@31 A ~@15 A ~@31 A ~@15 A ~@21>".pickRestart({
  A: "~@7 x",
})).gain(0.3)

// drums · ride
const ride = s("rd").struct("<~@119 x ~>").gain(0.24)

// drums · cowbell
const cowbell = s("cb").struct("<~@4 [~ x]!115 x ~>").gain(0.48)

stack(
  bass, piano, acoustic_guitar_nylon, acoustic_guitar_steel, acoustic_guitar_steel_2, acoustic_guitar_steel_3, kick,
  rim, snare, hihat, hihat_soft, open_hat, ride, cowbell
)