// Everybody's Got Something to Hide Except Me and My Monkey — The Beatles
// 120 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 77 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(120/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.

// other · overdriven guitar · "Guitar 1"
const overdriven_guitar = note(`<
  ~@4 A@2 B C D E F@2 G@2 H I J@2 K@2 L M L N O P Q R S T F U G V H W X Y Z AA AB AC C AD AE B C D E F@2 G@2 H I J@2
  AF@2 ~@2 AG AH@2 AI AJ@10 AK@2
>`.pickRestart({
  A: "[e2@2 e3!8 d3 [e3,f#3]@2 d3@2 e2@2 e3!6 [g3,a3]@2 g3@2 d3@2 e3@2 ~]/2", B: "e2@2 e3!8 d3 [e3,f#3]@2 d3@2 e2",
  C: "e2@2 e3!6 [e3,f#3]@2 d3@2 b2@2 d3@2", D: "e2@2 e3!6 [e3,f#3]@2 d3@2 e3@2 e3@2",
  E: "e2@2 e3!4 ~ d3 [e3,f#3]@2 d3@2 e3@2 e3!2", F: "a2!8", G: "d3!8", H: "b2!8", I: "b2!6 ~@2",
  J: "[b4 a4 e4@2 g4@2 [d5,e5]@2 d5@4 g4@8 ~@8 e5@2 d5@2]/2", K: "[b4@2 [g5,a5]@2 g5@4 a4@12 ~@4 e2@2 e3!6]/2",
  L: "[e3,g3]@2 d3@2 e3@2 e2@2 e2@2 e3!6", M: "[g3,a3]@2 g3@2 d3@2 e3@2 e2@2 e3!5 d3", N: "[e3,f#3] d3 b2 d3 e2!4",
  O: "e2@2 e2@2 b2@2 d3@2 e2@2 e3!5 d3", P: "[e3,f#3]@2 d3@2 e3@2 e3@2 e2@2 e3!6",
  Q: "e3!2 d3 [e3,f#3]@2 d3@2 e2 e2@2 e3!6", R: "[e3,f#3]@2 d3@2 b2@2 d3@2 e2@2 e3!6",
  S: "a2@2 b2@2 d3@2 e3@2 e2@2 e3!4 ~ d3", T: "a2@2 b2@2 d3@2 e3!2 a2@2 a2@2 a2@2 a2@2", U: "a2!4 d3!4", V: "d3!4 b2!4",
  W: "b2@2 b2@2 ~@4 b4 a4 e4@2 g4@2 [d5,e5]@2", X: "d5 g4@2 ~", Y: "~@2 e5 d5 b4 [g5,a5] g5@2", Z: "a4@3 ~",
  AA: "e2@2 e3!6 [e3,g3]@2 d3@2 e3@2 e2@2", AB: "e2@2 e3!6 [g3,a3]@2 g3@2 d3@2 e3@2",
  AC: "e2@2 e3!5 d3 [e3,g3]@2 d3@2 e3@2 e2@2", AD: "e2!6 b2 d3", AE: "e2@2 e3!5 d3 [e3,f#3]@2 d3@2 e3@2 e3@2",
  AF: "[b4 [g5,a5] g5@2 a4@6 ~@6]/2", AG: "~@8 [d3,f#3,a3,d4]!3 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@2",
  AH: "[d3,f#3,a3,d4]!3 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4]!3 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@2", // D
  AI: "[d3,f#3,a3,d4]!3 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@2 e2@2 e3!6", // D
  AJ: "[e3!2 d3 [e3,f#3]@2 d3@2 e2@2 e3!6 [g3,a3]@2 g3@2 d3@2 e3@2 ~ e2@2 e3!6]/2", // Esus2 Gsus2
  AK: "[e3!2 d3 [e3,f#3]@2 d3@2 e2@2 e3!6 [g3,a3]@2 g3@2 d3@2 e3@2 ~@9]/2", // Esus2 Gsus2
})).s("gm_overdriven_guitar").gain(0.45)

// chords · overdriven guitar · "Guitar 2"
const overdriven_guitar_2 = note(`<
  A@10 B@2 C@2 D E F G H I J@3 K L@5 M B N C O P Q R S T U@4 A@6 B@2 C@2 D E F G H ~@3 V W@2 X L@11 Y
>`.pickRestart({
  A: "~ [b3,e4,g#4] ~ [c#4,e4,a4] ~ [e4,a4,c#5] ~@2", B: "[a2,e3]!2 [a2,f#3] [a2,e3]!3 [a2,f#3] [a2,e3]",
  C: "[d3,a3]!2 [d3,b3] [d3,a3]!3 [d3,b3] [d3,a3]", D: "[b2,f#3]!2 [b2,g#3] [b2,f#3]!3 [b2,g#3] [b2,f#3]",
  E: "[b2,f#3]!6 ~@2", F: "[e3,g#3,b3,e4] ~@2 [d3,f#3,a3,d4] ~@2 [g3,b3,d4,g4]@2", G: "~@6 [e3,g#3,b3,e4] ~",
  H: "~ [g3,b3,d4,g4] ~@2 [d3,f#3,a3,d4]@2 ~@2", I: "~@4 [b3,e4,g#4]!2 ~@2", J: "~ [b3,d#4,a4]!2 ~ [b3,e4,g#4]!2 ~@2",
  K: "~ [b3,d#4,a4]!2 ~@2 [b3,e4,g#4] ~ [c#4,e4,a4]", L: "~ [e4,a4,c#5] ~@3 [b3,e4,g#4] ~ [c#4,e4,a4]",
  M: "~ [e4,a4,c#5] ~@2 [a2,e3]!2 [a2,f#3] [a2,e3]", N: "[a2,e3]!2 [a2,f#3] [a2,e3] [d3,a3]!2 [d3,b3] [d3,a3]",
  O: "[d3,a3]!2 [d3,b3] [d3,a3] [b2,f#3]!2 [b2,g#3] [b2,f#3]", P: "[b2,f#3]!2 [b2,g#3] [b2,f#3]!5",
  Q: "[b2,f#3]!2 ~@2 [e3,g#3,b3,e4] ~@2 [d3,f#3,a3,d4]", R: "~ [g3,b3,d4,g4] ~@2",
  S: "~@2 [e3,g#3,b3,e4] ~@2 [g3,b3,d4,g4] ~@2", T: "[d3,f#3,a3,d4] ~@3", U: "[b3,e4,g#4]!2 ~@3 [b3,d#4,a4]!2 ~",
  V: "~@8 [d3,f#3,a3,d4]!3 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@2", // D
  W: "[d3,f#3,a3,d4]!3 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4]!3 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@2", // D
  X: "[d3,f#3,a3,d4]!3 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@2 ~@2 [b3,e4,g#4]@2 ~@2 [c#4,e4,a4]@2", // D E A
  Y: "~ [e4,a4,c#5] ~@6", // A
})).s("gm_overdriven_guitar").gain(0.4)

// bass · fretless bass · "Bass"
const bass = note(`<
  ~@4 A@6 B@2 C@2 D E F@2 G@2 H I H I@3 H I H J B K C L D M@2 N O A P A P A@6 B@2 C@2 D E F@2 Q@2 ~ R@2 S@2 T I@11 U
>`.pickRestart({
  A: "e2 e1 g#1 a1 b1 c#2 d2 d#2", B: "a1!8", C: "d2!8", D: "b1!8", E: "b1@2 b1@2 b1@2 b1@2 b1@2 b2!3 a2 f#2@2",
  F: "[e2@2 ~ d2@3 g1@4 ~@4 e2@2]/2", G: "[~ g1@3 d2@6 ~@2 e2 e1 g#1 a1]/2",
  H: "b1@2 c#2@2 d2@2 d#2@2 e2@2 e1 g#1@2 g#1 a1@2", I: "b1 c#2 d2 d#2 e2 e1 g#1 a1", J: "b1 c#2 d2 d#2 a1!4",
  K: "a1@2 a1 a2!2 g2 e2@2 d2@2 d2@2 d2@2 d2@2", L: "d2!4 b1!4", M: "[b1@2 b2!4 b2@2 e2@4 ~@2 d2@6 g1@8 ~@4]/2",
  N: "~@2 e2@2 ~ g1@3", O: "d2@3 ~", P: "e2@2 e1 g#1@2 g#1 a1@2 b1@2 c#2@2 d2@2 d#2@2",
  Q: "[~ g1@3 d2@6 ~@2 e2@2 ~@2]/2",
  R: "[~@8 e2@2 e2@2 e1!3 g#1@2 a1 a1@2 a#1@2 b1@2 d2@2 d2@2 d2@2 d2@2, ~@24 c#2 ~@7]/2",
  S: "c#2 d2!2 d2@2 d2!3 d2@2 d2@2 d2@2 d2@2, ~@8 c#2 ~@7",
  T: "c#2 d2!2 d2@2 d2!2 ~ e2@2 e1@2 g#1@2 a1@2, ~@7 d2@2 ~@7", U: "b1 c#2 d2 d#2 ~@4",
})).s("gm_fretless_bass").gain(0.54)

// drums · kick
const kick = s("bd").struct(`<
  A@4 B@6 C@6 D E F G H@5 I J@3 K C@5 L M N O H@6 B@4 C@6 D E F P B@2 O ~@2 Q J@11 R
>`.pickRestart({
  A: "x ~@6 x", B: "x ~@3 x!2 ~ x", C: "x!8", D: "x ~@2 x ~@2 x ~", E: "~@3 x", F: "~ x ~@2 x ~@3", G: "~@4 x ~@2 x",
  H: "x ~@2 x!2 ~@2 x", I: "x ~@2 x!2 ~@3", J: "x!2 ~ x!2 ~@3", K: "x!2 ~ x!5", L: "x!5 ~@2 x", M: "~ x ~@2",
  N: "~@2 x ~@2 x ~@2", O: "x", P: "~@4 x!2 ~ x", Q: "~ x", R: "x!2 ~ x ~@4",
})).gain(0.36)

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

// drums · hihat
const hihat = s("hh").struct("<~@4 A@11 B ~@3 C A@15 D ~@3 A@15 B ~@3 C A@2 E ~@2 C A@11 E>".pickRestart({
  A: "x!8", B: "x!7 ~", C: "~@4 x!4", D: "x!3 ~@5", E: "x!4 ~@4",
})).gain(0.36)

// drums · open hat
const open_hat = s("oh").struct("<~@15 A B C D ~@16 E F G H ~@15 A B C D ~@19>".pickRestart({
  A: "~@7 x", B: "x ~@2 x ~@2 x ~", C: "~@3 x", D: "~ x ~@2 x ~@3", E: "~@3 x!2 ~@2 x", F: "~ x ~@2",
  G: "~@2 x ~@2 x ~@2", H: "x",
})).gain(0.4)

// drums · high tom
const high_tom = s("ht").struct("<~@19 [~@7 x ~@8] ~@18 [~@15 x] ~@18 [~@6 x!2] [~ x!2 ~@5] ~@18>").gain(0.36)

// drums · ride bell
const ride_bell = s("rd").struct("<~@4 A@12 ~@29 A@4 ~@9 B A@2 C ~@2 B A@11 C>".pickRestart({
  A: "x!16", B: "~@8 x!8", C: "x!8 ~@8",
})).gain(0.36)

// drums · shaker
const shaker = s("sh").struct("<~@19 A B@15 C ~@3 B@6 ~@4 B@6 ~@22>".pickRestart({
  A: "~@8 x!8", B: "x!16", C: "x!8 ~@8",
})).gain(0.36)

stack(overdriven_guitar, overdriven_guitar_2, bass, kick, snare, hihat, open_hat, high_tom, ride_bell, shaker)