// I Saw Her Standing There — The Beatles
// 163 bpm, 4/4, key E major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 116 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(163/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 · electric guitar muted · "RHYTHM GTR"
const electric_guitar_muted = note(`<
  A B C D E F G H I J K L M N O P Q R S T U F G H I J K L M N O P Q R S T U V W X Y V Z AA@2 W AB F G H I J K L M N O P
  Q R S T U F G F G J K L M N O P Q R S T U V W X Y V Z AA@2 W AB AC G H I J K L M N O P Q R S T U R S T U R S AD AE@4
>`.pickRestart({
  A: "~@7 [c2,g2]", // C5
  B: "g2@2 g2@2 [c2,a2,e3,a#3] ~ [c2,g2]@2 [c2,g2,e3,a#3]@2 [c2,g2,e3,a#3]@2 [c2,a2]@2 [c2,g2]@2, c2 ~@3", // Am C5 C7 F C5
  C: "[c2,g2] ~ [c2,g2]@2 [c2,a2]@2 [c2,g2] ~ [c2,g2]@2 [c2,g2,e3,a#3]@2 c2@2 [c2,g2]@2, ~@4 [e3,a#3] ~@7 a2@4", // C5 F C5 C7 C5 Edim
  D: "[c2,g2] ~ [c2,g2]@2 [c2,a2,e3,a#3]@2 [c2,g2]@2 [c2,g2,e3,a#3] ~ [c2,g2]@2 [c2,a2]@2 [c2,g2]@2, ~@5 [e3,a#3]@2 ~", // C5 Am C5 C7 C5 F C5 Edim
  E: "[c2,g2] ~ [c2,g2]@2 [c2,a2,e3,a#3]@2 [c2,g2]@2 [c2,g2]@2 [c2,g2,e3,a#3]@2 [c2,a2]@2 [c2,g2]@2", // C5 Am C5 C7 F C5
  F: "[c2,g2]@2 g2 ~ [c2,a2,e3,a#3]@2 [c2,g2]@2 [c2,g2,e3,a#3]@2 [c2,g2,e3,a#3]@2 [c2,a2]@2 [c2,g2]@2", // C5 Am C5 C7 F C5
  G: "[c2,g2] ~ [c2,g2]@2 [c2,a2,e3,a#3]@2 [c2,g2]@2 [c2,g2] ~ [c2,g2,e3,a#3]@2 c2 ~ [c2,g2]@2, ~@3 a2", // C5 Am C5 C7 C5
  H: "[f2,c3] ~ [f2,c3]@2 f2@2 [f2,c3]@2 [f2,c3] ~ [f2,c3]@2 f2@2 [f2,c3]@2, ~ d3 ~ d3", // F5
  I: "[c2,g2] ~ [c2,g2]@2 [c2,a2]@2 [c2,g2]@2 [e3,a#3] ~ g2@2 [c2,a2] ~ [c2,g2]@2, ~@4 [e3,a#3] ~@3 c2@4 ~@4, ~@4 g2 [e3,a#3]@3", // C5 F C5 Edim F C5 Edim
  J: "[c2,g2] ~ [c2,g2]@2 [c2,a2,e3,a#3] ~ [c2,g2]@2 [c2,g2]@2 [c2,g2,e3,a#3] ~ c2@2 [c2,g2]@2, ~@3 a2", // C5 Am C5 C7 C5
  K: "[c2,g2] ~ [c2,g2]@2 [c2,a2,e3,a#3]@2 [c2,g2]@2 [c2,g2,e3,a#3] ~ [c2,g2]@2 c2@2 [c2,g2]@2, ~@5 [e3,a#3]@3, ~@3 a2", // C5 Am C5 C7 C5 Edim
  L: "[g2,d3] ~ [g2,d3]@2 [g2,e3]@2 [g2,d3] ~ [g2,d3]@2 [g2,d3]@2 g2@2 [g2,d3]@2, ~@3 e3", // G5 C G5
  M: "[g2,d3] ~ [g2,d3]@2 [g2,e3]@2 [g2,d3]@2 [g2,d3] ~ [g2,d3]@2 g2 ~ [g2,d3]@2, ~@3 e3", // G5 C G5
  N: "[c2,g2] ~ [c2,g2]@2 [c2,a2]@2 [c2,g2]@2 [c2,g2] ~ [c2,g2]@2 [c2,a2]@2 [c2,g2]@2", // C5 F C5 F C5
  O: "[c2,g2,c3]@3 ~ [c2,g2,d3] ~ [c2,g2,c3] ~ [c2,g2,c3] ~ [c2,g2,c3] ~ [c2,g2,d3] ~ [c2,g2,c3] ~", // C5 Csus2 C5 Csus2 C5
  P: "[f2,c3] ~ [f2,c3]@2 [c3,f3,a3]@2 [f2,c3] ~ [c3,f3,a3] ~ [c3,f3,a3]@4 [g#2,d#3]@2", // F5 F F5 F G#5
  Q: "~@2 [g#2,d#3] ~ [d#3,g#3,c4]@2 [g#2,d#3] ~ [d#3,g#3,c4] ~ [g#3,c4]@2 [g#2,d#3] ~@3, ~@10 [g#2,d#3] ~@5", // G#5 G# G#5 G# G#5
  R: "[c2,g2] ~ [c2,g2] ~ [c2,a2] ~ [c2,g2] ~ [c2,g2] ~ [c2,g2,e3,a#3] ~ [c2,a2] ~ [c2,g2] ~", // C5 F C5 C7 F C5
  S: "[g2,d3] ~ [g2,d3] ~ [g2,e3] ~ [g2,d3] ~ [g2,d3] ~ [g2,d3] ~ [g2,e3] ~ [g2,d3] ~", // G5 C G5 C G5
  T: "[c2,g2] ~ [c2,g2] ~ [c2,a2,e3,a#3] ~ [c2,g2] ~ [c2,g2] ~ [c2,g2] ~ [c2,a2] ~ [c2,g2] ~, ~@10 [e3,a#3]@5 ~", // C5 Am C5 F C5 Edim
  U: "[c2,g2] ~ [c2,g2] ~ [c2,a2,e3,a#3] ~ [c2,g2] ~ [c2,g2,e3,a#3] ~ [c2,g2,e3,a#3] ~ [c2,a2] ~ [c2,g2] ~", // C5 Am C5 C7 F C5
  V: "[f2,c3] ~ [f2,c3]@2 [f2,d3]@2 [f2,c3]@2 [f2,c3] ~ [f2,c3]@2 [f2,d3] ~ [f2,c3]@2", // F5 Dm F5 Dm F5
  W: "[f2,c3] ~ [f2,c3]@2 [f2,d3] ~ [f2,c3]@2 [f2,c3] ~ [f2,c3]@2 [f2,d3]@2 [f2,c3]@2", // F5 Dm F5 Dm F5
  X: "[f2,c3] ~ [f2,c3]@2 [f2,d3]@2 [f2,c3]@2 [f2,c3] ~ [f2,c3]@2 f2 ~ [f2,c3]@2, ~@3 d3", // F5 Dm F5
  Y: "[f2,c3] ~ [f2,c3]@2 d3@2 [f2,c3] ~ [f2,c3] ~ [f2,c3]@2 [f2,d3]@2 [f2,c3]@2, ~@4 f2 ~@11", // F5 Dm F5
  Z: "[f2,c3] ~ [f2,c3] ~ [f2,d3]@2 [f2,c3]@2 [f2,c3] ~ [f2,c3]@2 [f2,d3]@2 [f2,c3]@2", // F5 Dm F5 Dm F5
  AA: "[g2,d3] ~ [g2,d3]@2 [g2,e3] ~ [g2,d3]@2 [g2,d3] ~ [g2,d3]@2 [g2,e3] ~ [g2,d3]@2", // G5 C G5 C G5
  AB: "[f2,c3] ~ [f2,c3]@2 [f2,d3] ~ [f2,c3]@2 [f2,c3] ~ [f2,c3]@2 [f2,d3]@2 [f2,c3] ~", // F5 Dm F5 Dm F5
  AC: "[c2,g2]@2 g2 ~ [c2,a2,e3,a#3] ~ [c2,g2]@2 [c2,g2,e3,a#3]@2 [c2,g2,e3,a#3]@2 [c2,a2]@2 [c2,g2]@2", // C5 Am C5 C7 F C5
  AD: "[f2,c3] ~ [f2,c3] ~ [f2,d3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,d3]@2 [f2,c3] ~", // F5 Dm F5 Dm F5
  AE: "[[c2,g2] ~ [c2,g2] ~ [c2,g2] ~ [c2,g2] ~@5 [c2,g2]@38 ~@14]/4", // C5
})).s("gm_electric_guitar_muted").gain(0.59)

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~ A B C D E F G C@3 H I J K L M N O N@2 E F G C@3 H I J K L M N O N@2 P Q@5 R S T@2 E F G C@3 H I J K L M N O N@2 E F
  E F C@2 H I J K L M N O N@2 P Q@5 R S T@2 E F G C@3 H I J K L M N O N@3 O N@3 O U V@4
>`.pickRestart({
  A: "c3 ~ c3 ~ e3 ~ c3 ~ g3 ~ g3 ~ f3@2 e3 ~", B: "c3 ~ c3 ~ e3 ~ c3 ~ g3@4 f3 ~ e3 ~",
  C: "c3 ~ c3 ~ e3 ~ c3 ~ g3 ~ g3 ~ f3 ~ e3 ~", D: "c3 ~ c3 ~ e3@2 c3 ~ g3 ~ g3 ~ f3 ~ e3 ~",
  E: "c3 ~ c3 ~ e3 ~ c3 ~ g3 ~ g3@2 f3 ~ e3@2", F: "c3 ~ c3 ~ e3 ~ c3 ~ g3 ~ g3@2 f3 ~ e3 ~",
  G: "f2 ~ f2 ~ a2@2 f2 ~ c3@3 ~ d3@2 c3 ~", H: "g2 ~ g2@2 b2 ~ b2 ~ d3 ~ d3@2 b2 ~ b2 ~",
  I: "g2 ~ g2 ~ f2 ~ f2 ~ e2 ~ e2 ~ d2 ~ d2 ~", J: "c3@3 ~ c3@3 ~ c3@3 ~ c3@3 ~", K: "e3@3 ~ e3@3 ~ e3@3 ~ e3@3 ~",
  L: "f3@3 ~ f3@3 ~ f3@3 ~ f3@3 ~", M: "g#3@3 ~ g#3@3 ~ g#3@3 ~ g#3@3 ~", N: "c3 ~ c3@2 e3@2 c3 ~ g3@4 f3 ~ e3@2",
  O: "g2 ~ g2 ~ b2 ~ b2 ~ d3 ~ d3@2 e3@2 d3@2", P: "f2 ~ f2 ~ a2@2 f2 ~ c3 ~ c3 ~ d3 ~ c3 ~",
  Q: "f2 ~ f2 ~ a2 ~ f2 ~ c3 ~ c3 ~ d3 ~ c3 ~", R: "g2 ~ g2 ~ b2 ~ b2 ~ d3 ~ d3 ~ e3 ~ d3 ~",
  S: "g2 ~ g2 ~ b2 ~ g2 ~ d3 ~ d3 ~ e3@2 d3 ~", T: "f2 ~ f2 ~ a2 ~ a2 ~ c3 ~ c3 ~ a2 ~ f2 ~",
  U: "f3 ~ f3 ~ f3 ~ f3 ~ f3 ~ f3 ~ f3 ~ f3 ~", V: "[c2@2 e2 ~ g2@2 c3@2 ~@4 c3@38 ~@14]/4",
})).s("gm_acoustic_bass").gain(0.53)

// chords · acoustic guitar steel · "LEAD GTR"
const acoustic_guitar_steel = note(`<
  ~ A B C D E F G H I J K L M@2 N O P Q R S E F G H I J K L M@2 N O P Q R S T@3 U T@2 V W X Y E F G H I J K L M@2 N O P
  Q R S Z AA AB AC AD AE AF@2 AG AH AI AJ@2 AK AL@2 T@3 U T@2 V W X Y F@2 G H I J K L M@2 N O P Q R S P Q R S P Q AM
  AN@3 ~
>`.pickRestart({
  A: "~@4 [e3,a#3,e4]@2 ~@2 [e3,a#3,e4] ~ [e3,a#3,e4]@4 ~@2", B: "[e3,a#3,e4]@13 ~@3",
  C: "~@4 [e3,a#3,e4]@2 ~@2 [e3,a#3,e4] ~ [e3,a#3,e4]@2 ~@4", D: "[e3,a#3,e4]@3 ~ [e3,a#3,e4]@9 ~@3",
  E: "~@4 [e3,a#3,c4] ~@5 [e3,a#3,c4]@5 ~", F: "~@4 [e3,a#3,c4] ~@5 [e3,a#3,c4]@3 ~ c4 ~",
  G: "~@4 [f3,a3,c4] ~@3 [f3,a3,c4] ~ [f3,a3,c4]@2 ~@4", H: "~@4 [e3,a#3,c4] ~@5 [e3,a#3,c4] ~@5",
  I: "~@4 [e3,a#3,c4] ~@3 [e3,a#3,c4] ~ [e3,a#3,c4]@6", J: "~@4 [e3,a#3,c4] ~@5 [e3,a#3,b3,c4] ~@5",
  K: "~@2 [g3,b3,d4] ~@5 [g3,b3,d4]@6 ~@2", L: "~@2 [f3,b3,d4] ~@5 [f3,b3,d4]@5 ~@3",
  M: "[[c3,e3]@13 ~@2 a#2 a#3@11 ~@5, g3@15 [c3,e3]@11 ~@6]/2", N: "[f3,a3,c4]@13 ~ g#3 ~", O: "[d#3,g#3,c4]@11 ~@5",
  P: "[e3,g3,c4]@11 ~@5", Q: "[g3,b3,d4]@5 ~@3", R: "~@4 [e3,a#3,e4]@3 ~ [e3,a#3,e4] ~ [e3,a#3,e4]@5 ~",
  S: "[e3,a#3,e4]@11 ~@5", T: "~ f2 a2 f2 c3 f2 a2 f2", U: "~ f2 a2 f2 c3 a2 f2 a2", V: "~ g2 b2 g2 d3 g2 b2 g2",
  W: "~ g2 b2 g2 d3 g2 b2 ~", X: "~@4 [c4,d4,g4]@2 ~@2 [c4,d4,f4] ~ [c4,d4,f4]@3 ~@3", Y: "[c4,d4,f4]@7 ~@9",
  Z: "~@2 f#3@2 ~@2 f3@2 ~@2 f3@2 ~@2 c3 ~", AA: "~@2 c3 ~ d#3@2 c3@2 ~@2 c3@2 d#3@2 c3 ~",
  AB: "g3@2 a#3@6 g3@2 f3@4 c3 a#2, ~@10 g3 ~@5", AC: "c3@6 ~@4 g2@2 [g#2,a#2] c3 d#3@2",
  AD: "g3@2 a#3@6 g3@2 d#3@3 ~ c3 ~", AE: "[a#3,c4,e4]@2 ~@2 [a#3,e4]@5 ~ [a#3,e4] ~@5",
  AF: "[g2@3 ~ g2@3 ~ a#2 ~ c3@3 ~ d3@4 f3@3 ~ d3@4 f3@2 d3@2 ~@2]/2", AG: "g3@4 ~@2 g3 ~ c4@2 d#4@3 ~ c4@2",
  AH: "g4@3 ~ g4@3 ~ f4@2 d#4 ~ c4@3 ~", AI: "~@6 g4@3 ~ [g4,a#4]@3 ~ [g4,a#4]@2, ~@2 a#4@6 ~@2 f4 ~@5",
  AJ: "[~@2 [g4,a#4]@4 f4 ~ g4@2 f4 ~ [d#4,a#4] ~ f4 c5@4 ~ a#4@3 ~ g4@2 f4@3 ~ [f4,a#4]@2, ~@6 a#4@6 ~@3 g4 ~@16]/2", // Gm D#5 A#5
  AK: "~@2 g4@2 a#4 ~ [d#4,a#4]@3 ~ [f4,a#4]@2 d#4@2 ~@2", AL: "[c3@4 a#2@4 g2 ~ d#2@3 ~ c2@14 ~@4]/2",
  AM: "~@4 [c4,f4,g4]@2 ~@2 [c4,f4] ~ [c4,f4]@3 ~@3", // Csus4 F5
  AN: "[c2 ~ e2 ~ g2 ~ [e3,a#3,c4]@2 ~@4 [c3,g3,a#3,d4,g4]@27 ~@9]/3", // C7 Gm
})).s("gm_acoustic_guitar_steel").gain(0.72)

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

// drums · snare
const snare = s("sd").struct(`<
  ~ A@11 B A@15 C A@7 D A@9 E A@7 B A@7 F A@15 E A@9 G A@7 B A@7 B A@3 D A@2 B H ~@3
>`.pickRestart({
  A: "~ x ~ x", B: "~@2 x ~@3 x!2", C: "~@2 x ~ x ~ x!2", D: "~ x!3", E: "x ~@3 x ~@3 x ~@3 x!3 ~", F: "~@4 x ~@5 x!6",
  G: "~@4 x ~@7 x!3 ~", H: "~@2 x!2 ~@4",
})).gain(0.45)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@12 A ~@15 B ~@17 C ~@7 A ~@7 D ~@15 C ~@17 A ~@7 A ~@3 E ~@3 F ~@3>".pickRestart({
  A: "~@13 x ~@2", B: "~@6 x!2 ~@2 x!2 ~@4", C: "~@2 x!2 ~@2 x!2 ~@2 x!2 ~@4", D: "~@2 x!2 ~@2 x!4 ~@6",
  E: "~@5 x!3 ~ x!3 ~ x!3", F: "~ x ~@6",
})).gain(0.13)

// drums · clap
const clap = s("cp").struct(`<
  ~
  [~@2 x!2 ~@2 x ~]!45
  [~ x ~@2]
  [~@2 x!2 ~@2 x ~]!31
  [~ x ~@2]
  [~@2 x!2 ~@2 x ~]!33
  ~@4
>`).gain(0.45)

// drums · hihat
const hihat = s("hh").struct("<~ [x!4]!111 [x!2 ~@2] ~@3>").gain(0.45)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~ [~ x ~ x ~ x ~ x]!111 [~ x ~@6] ~@3>").gain(0.13)

// drums · crash
const crash = s("cr").struct(`<
  ~@29 A ~@7 A ~@9 A ~@15 A ~@7 A ~@7 A ~@9 A ~@7 A ~@3 A ~@3 A ~@3 A ~@2 B ~@3
>`.pickRestart({
  A: "x", B: "~@3 x",
})).gain(0.45)

// drums · ride
const ride = s("rd").struct("<~@37 A@9 B ~@16 A@15 B A@10 ~@23 C ~@3>".pickRestart({
  A: "x!4", B: "x", C: "x!4 ~@4",
})).gain(0.45)

stack(electric_guitar_muted, bass, acoustic_guitar_steel, kick, snare, snare_soft, clap, hihat, hihat_soft, crash, ride)