// Living Doll — Richard Cliff
// 133 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 82 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(133/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 · piano · "A.PIANO 1"
const piano = note(`<
  ~@2 A B C D A@2 E F G A H I J K L ~ M N O P Q J R ~ S T U V W X Y Z AA AB AC AD AE AF AG ~ AH AI AJ AK AL A AM AN AO A
  AP AQ AR AS AT AU AV AW AX AY AZ BA R ~ BB BC BD AO BE X BF BG BH BI BJ BK BL BM BN BO
>`.pickRestart({
  A: "~@6 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~@7 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~", // A
  B: "~@6 [a3,c#4,e4] ~@3 [a3,e4] ~@7 [a3,e4] ~@3 [a3,c#4,e4] ~, ~@5 c#4 ~@3 c#4 ~@2", // A A5 A
  C: "~@6 [a3,c#4,e4] ~@3 [a3,c#4]@2 ~@6 [a3,e4] ~@3 [a3,c#4,e4] ~, ~@10 e4 ~@7 c#4@2 ~@4", // A A5 A
  D: "~@6 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~@7 [a3,e4] ~@3 [a3,e4] ~, ~@9 c#4 ~ c#4", // A A5
  E: "~@6 [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~@7 [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~", // B
  F: "~@6 [g#3,b3,e4] ~@3 [g#3,b3]@2 ~@6 [g#3,e4]@2 ~@2 [g#3,b3]@2, ~@10 e4 ~@7 b3 ~@3 e4 ~", // E G#m C#m G#m
  G: "~@6 [a3,c#4,e4] ~@3 [a3,c#4]@2 ~@6 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~, ~@10 e4 ~@13", // A
  H: "~@6 [a#3,c#4,f#4] ~@3 [a#3,c#4,f#4] ~@7 [a#3,c#4,f#4] ~@3 [c#4,f#4] ~, ~@11 a#3", // F# F#5
  I: "~@6 [a#3,c#4,f#4] ~@3 [c#4,f#4] ~@7 [a#3,c#4,f#4] ~@3 [a#3,c#4,f#4] ~, ~@5 a#3 ~@6", // F# F#5 F#
  J: "~@6 [a3,f#4] ~@3 [a3,d4,f#4] ~@7 [a3,d4,f#4] ~@3 [a3,d4,f#4] ~, ~@3 d4 ~@8", // D
  K: "~@6 [g#3,b3] ~@3 [g#3,e4]@2 ~@6 [g#3,b3]@2 ~@2 [g#3,b3]@2, ~@10 b3 ~@7 e4 ~@3 e4 ~", // G#m C#m G#m
  L: "~@6 [c#4,e4] ~@3 [a3,c#4]@2 ~@6 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~, ~@6 a3@2 ~@2 e4 ~@13", // C#m A
  M: "~@6 [a3,d4] ~@3 [a3,d4,f#4] ~@7 [a3,d4]@2 ~@2 [a3,d4,f#4] ~, ~@6 f#4@2 ~@10 f#4 ~@5", // D5 D D5 D
  N: "~@6 [a3,d4,f#4] ~@3 [a3,d4,f#4] ~@7 [a3,f#4] ~@3 [a3,d4] ~, ~@9 d4 ~ f#4", // D D5
  O: "~@6 [a3,c#4]@2 ~@2 [a3,c#4]@2 ~@6 [c#4,e4]@2 ~@2 [a3,c#4,e4] ~, ~@6 e4 ~@3 e4 ~@7 a3 ~@5", // A C#m A
  P: "~@6 [c#4,e4]@2 ~@2 [a3,c#4,e4] ~@7 [c#4,e4]@2 ~@2 [a3,c#4] ~, ~@6 a3 ~@11 a3 ~@3 e4@2", // C#m A C#m A
  Q: "~@6 [d4,f#4]@2 ~@2 [a3,d4] ~@7 [a3,f#4]@2 ~@2 [a3,d4,f#4] ~, ~@6 a3 ~@3 f#4@2 ~@6 d4 ~@5", R: "[b3,e4,g#4] ~@23",
  S: "~@6 [c#4,e4]@2 ~@2 [a3,c#4]@2 ~@6 [a3,e4] ~@3 [a3,c#4,e4]@2, ~@6 a3 ~@3 e4 ~@7 c#4@2 ~@4", // C#m A A5 A
  T: "~@6 [a3,e4] ~@3 [a3,c#4] ~@7 [a3,c#4,e4] ~@3 [c#4,e4] ~, ~@3 c#4 ~ e4 ~@5 a3", // A5 A C#m
  U: "~@6 [a3,c#4,e4] ~@3 [c#4,e4] ~@7 [a3,c#4,e4] ~@3 [a3,c#4] ~, ~@5 a3 ~@5 e4", // A C#m A
  V: "~@6 [a3,c#4,e4] ~@3 [a3,e4] ~@7 [a3,e4] ~@3 [c#4,e4]@2, ~@10 c#4@2 ~@6 c#4@2 ~@2 a3 ~", // A A5 C#m
  W: "~@6 [a3,c#4,e4]@2 ~@2 [c#4,e4]@2 ~@6 [a3,e4] ~@3 [a3,c#4]@2, ~@10 a3 ~@7 c#4@2 ~@2 e4 ~", // A C#m A5 A
  X: "~@6 [a3,e4] ~@3 [a3,e4] ~@7 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~, ~@3 c#4 ~ c#4 ~@6", // A5 A
  Y: "~@6 [b3,f#4] ~@3 [b3,f#4] ~@7 [b3,f#4] ~@3 [b3,f#4] ~, ~@3 d#4 ~ d#4 ~@3 d#4 ~ d#4", // B5
  Z: "~@6 [b3,e4] ~@3 [g#3,b3]@2 ~@6 [g#3,b3]@2 ~@2 [g#3,b3,e4]@2, ~@6 g#3@2 ~@2 e4 ~@7 e4 ~@5", // E5 G#m E
  AA: "~@6 [a3,c#4,e4]@2 ~@2 [a3,c#4,e4]@2 ~@6 [a3,e4] ~@3 [a3,e4]@2, ~@18 c#4@2 ~@2 c#4 ~", // A A5
  AB: "~@6 [a3,c#4,e4]@2 ~@2 [a3,c#4,e4]@2 ~@6 [c#4,e4]@2 ~@2 [a3,e4] ~, ~@18 a3 ~@3 c#4@2", // A C#m A5
  AC: "~@3 [a#3,c#4,f#4] ~ [a#3,f#4] ~@3 [a#3,f#4] ~ [a#3,f#4], ~@10 c#4 ~@7 c#4 ~@3 c#4 ~", // F# D#m
  AD: "~@6 [a#3,f#4]@2 ~@2 [c#4,f#4] ~@7 [c#4,f#4] ~@3 [a#3,f#4]@2, ~@6 c#4 ~@3 a#3@2 ~@6 a#3@2 ~@2 c#4 ~", // D#m F#5 D#m
  AE: "~@6 [d4,f#4] ~@3 [a3,f#4]@2 ~@6 [d4,f#4] ~@3 [d4,f#4] ~, ~@6 a3@2 ~@2 d4 ~@7 a3@2 ~@2 a3@2", // D
  AF: "~@6 [b3,e4] ~@3 [g#3,b3,e4]@2 ~@6 [g#3,b3]@2 ~@2 [g#3,b3]@2, ~@6 g#3@2 ~@10 e4 ~@3 e4 ~", // E5 E G#m
  AG: "~@6 [a3,c#4,e4]@2 ~@2 [a3,c#4,e4]@2 ~@6 [a3,c#4] ~@3 [a3,c#4,e4] ~, ~@9 e4 ~@2", // A
  AH: "~@6 [c#4,e4]@2 ~@2 [c#4,e4]@2 ~@6 [a3,e4] ~@3 [c#4,e4]@2, ~@6 a3 ~@3 a3 ~@7 c#4@2 ~@2 a3 ~", // C#m A5 C#m
  AI: "~@6 [a3,e4] ~@3 [a3,c#4] ~@7 [a3,e4] ~@3 [a3,e4] ~, ~@3 c#4 ~ e4 ~@3 c#4 ~ c#4", // A5 A A5
  AJ: "~@6 [a3,e4] ~@3 [a3,e4] ~@7 [a3,c#4] ~@3 [c#4,e4]@2, ~@6 c#4@2 ~@2 c#4@2 ~@6 e4@2 ~@2 a3 ~", // A5 A C#m
  AK: "~@6 [c#4,e4] ~@3 [c#4,e4]@2 ~@6 [c#4,e4]@2 ~@2 [a3,c#4,e4] ~, ~@6 a3@2 ~@2 a3 ~@7 a3 ~@5", // C#m A
  AL: "~@6 [a3,e4] ~@3 [c#4,e4]@2 ~@6 [a3,c#4,e4] ~@3 [a3,e4] ~, ~@6 c#4@2 ~@2 a3 ~@11 c#4@2", // A5 C#m A A5
  AM: "~@6 [b3,f#4] ~@3 [b3,f#4] ~@7 [d#4,f#4] ~@3 [b3,d#4,f#4] ~, ~@3 d#4 ~ d#4 ~@3 b3 ~@2", // B5 D#m B
  AN: "~@6 [b3,e4] ~@3 [b3,e4] ~@7 [g#3,b3]@2 ~@2 [g#3,e4] ~, ~@6 g#3@2 ~@2 g#3@2 ~@6 e4 ~@3 b3@2", // E5 G#m C#m
  AO: "~@6 [a3,e4] ~@3 [a3,e4] ~@7 [a3,e4] ~@3 [a3,e4] ~, ~@3 c#4 ~ c#4 ~@3 c#4 ~ c#4", // A5
  AP: "~@6 [a#3,c#4,f#4]@2 ~@2 [a#3,f#4]@2 ~@6 [a#3,f#4]@2 ~@2 [c#4,f#4] ~, ~@10 c#4 ~@7 c#4 ~@3 a#3@2", // F# D#m F#5
  AQ: "~@6 [c#4,f#4] ~@3 [c#4,f#4] ~@7 [c#4,f#4] ~@3 [a#3,c#4,f#4] ~, ~@3 a#3 ~ a#3 ~@3 a#3 ~@2", // F#5 F#
  AR: "~@6 [a3,c#4,e4]@2 ~@2 [a3,c#4]@2 ~@6 [a3,c#4,e4]@2 ~@2 [a3,e4] ~, ~@10 e4 ~@11 c#4@2", // A A5
  AS: "~@6 [a3,c#4,e4]@2 ~@2 [a3,e4] ~@7 [a3,c#4,e4]@2 ~@2 [a3,c#4,e4] ~, ~@5 c#4 ~@6", // A A5 A
  AT: "~@6 [g#3,b3,e4]@2 ~@2 [g#3,e4] ~@7 [g#3,e4] ~@3 [g#3,b3] ~, ~@5 b3 ~@3 b3 ~@2", AU: "[a3,c#4] ~@23, e4 ~@11",
  AV: "~@6 [a3,d4,f#4]@2 ~@2 [a3,d4,f#4] ~@7 [a3,f#4]@2 ~@2 [a3,d4,f#4] ~, ~@18 d4 ~@5", // D
  AW: "~@6 [d4,f#4] ~@3 [a3,f#4]@2 ~@6 [a3,d4,f#4]@2 ~@2 [a3,d4] ~, ~@6 a3@2 ~@2 d4 ~@11 f#4@2", // D D5
  AX: "~@6 [a3,e4]@2 ~@2 [a3,c#4]@2 ~@6 [a3,c#4] ~@3 [a3,e4] ~, ~@6 c#4 ~@3 e4 ~@7 e4@2 ~@2 c#4@2", // A5 A A5
  AY: "~@6 [a3,e4] ~@3 [a3,e4] ~@7 [a3,e4] ~@3 [a3,c#4,e4] ~, ~@3 c#4 ~ c#4 ~@3 c#4 ~@2", // A5 A
  AZ: "~@6 [a3,d4,f#4]@2 ~@2 [a3,d4,f#4] ~@7 [a3,d4]@2 ~@2 [a3,d4,f#4]@2, ~@18 f#4 ~@5", // D D5 D
  BA: "~@6 [a3,d4,f#4] ~@3 [a3,d4] ~@7 [a3,d4,f#4]@2 ~@4, ~@5 f#4 ~@6", // D D5 D
  BB: "~@6 [c#4,e4]@2 ~@2 [a3,e4] ~@7 [a3,e4] ~@3 [a3,c#4,e4]@2, ~@6 a3 ~@3 c#4@2 ~@6 c#4@2 ~@4", // C#m A5 A
  BC: "~@3 [c#4,e4] ~ [a3,c#4] ~@3 [a3,c#4,e4] ~ [c#4,e4], ~@6 a3 ~@3 e4 ~@11 a3 ~", // C#m A C#m
  BD: "~@6 [c#4,e4]@2 ~@2 [a3,e4] ~@7 [a3,c#4] ~@3 [a3,e4] ~, ~@6 a3 ~@3 c#4@2 ~@6 e4@2 ~@2 c#4@2", // C#m A5 A A5
  BE: "~@6 [c#4,e4]@2 ~@2 [a3,c#4,e4] ~@7 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~, ~@6 a3 ~@17", // C#m A
  BF: "~@6 [b3,d#4,f#4] ~@3 [d#4,f#4]@2 ~@6 [b3,f#4] ~@3 [b3,d#4,f#4] ~, ~@10 b3 ~@7 d#4@2 ~@4", // B D#m B5 B
  BG: "~@6 [b3,e4] ~@3 [g#3,b3]@2 ~@6 [g#3,e4]@2 ~@2 [g#3,e4] ~, ~@6 g#3@2 ~@2 e4 ~@7 b3 ~@3 b3@2", // E5 G#m C#m
  BH: "~@6 [c#4,e4]@2 ~@2 [a3,c#4,e4] ~@7 [c#4,e4]@2 ~@2 [a3,e4] ~, ~@6 a3 ~@11 a3 ~@3 c#4@2", // C#m A C#m A5
  BI: "~@6 [c#4,e4]@2 ~@2 [a3,c#4,e4] ~@7 [a3,e4] ~@3 [a3,c#4,e4] ~, ~@6 a3 ~@11 c#4@2 ~@4", // C#m A A5 A
  BJ: "~@6 [a#3,f#4]@2 ~@2 [c#4,f#4] ~@7 [c#4,f#4] ~@3 [a#3,c#4,f#4] ~, ~@6 c#4 ~@3 a#3@2 ~@6 a#3@2 ~@4", // D#m F#5 F#
  BK: "~@6 [a#3,c#4,f#4] ~@3 [a#3,c#4,f#4] ~@7 [c#4,f#4] ~@3 [a#3,c#4,f#4] ~, ~@9 a#3 ~@2", // F# F#5 F#
  BL: "~@6 [a3,d4] ~@3 [a3,f#4]@2 ~@6 [a3,f#4]@2 ~@2 [a3,d4,f#4] ~, ~@6 f#4@2 ~@2 d4 ~@7 d4 ~@5", // D5 D
  BM: "~@6 [g#3,e4]@2 ~@2 [g#3,b3]@2 ~@6 [b3,e4] ~@3 [g#3,b3,e4] ~, ~@6 b3 ~@3 e4 ~@7 g#3@2 ~@4", // C#m G#m E5 E
  BN: "~@6 [a3,c#4,e4]@2 ~@2 [a3,e4] ~@7 [a3,c#4,e4] ~@5, ~@5 c#4 ~@6", BO: "[a3,c#4,e4] ~@23",
})).s("gm_piano").gain(0.3)

// chords · synth strings 1 · "SYN STR 1"
const synth_strings_1 = note(`<
  ~@2 A@6 B@4 C@3 D@3 E@6 F ~ G@6 H@4 I@3 J@3 K@2 L@4 M@4 N@6 O@6 P ~ G@6 Q@4 R@3 S@3
>`.pickRestart({
  A: "[[e3,a3,c#4]@47 ~]/6", B: "[[d#3,f#3]@23 ~ g#3@23 ~ [a3,c#4]@46 ~@2, b3@47 ~ g#3 ~@47, ~@8 e3@23 ~]/4",
  C: "[[c#3,a#3]@47 ~ a3@24, f#3, ~@24 d3@11 ~]/3", D: "[[g#3,b3]@8 [a3,c#4]@9 ~@7, e3@17 ~@7]/3",
  E: "[[f#3,d4]@47 ~ c#4@47 ~ [f#3,d4]@45 ~@3, a3@139 ~@5, ~@12 e3@11 ~@13]/6", F: "[g#3,b3,e4] ~@11",
  G: "[[e3,a3,c#4]@71 ~]/6", H: "[[d#3,f#3]@11 ~ g#3@11 ~ [a3,c#4]@23 ~, b3 ~, ~@8 e3@23 ~]/4",
  I: "[[c#3,a#3]@23 ~ a3@12, f#3, ~@16 d3@7 ~]/3", J: "[b3@12 [a3,c#4]@13 ~@11, e3@49 ~@23, g#3@11 ~@25]/3",
  K: "[[a3,c#4]@15 ~, e4]/2", L: "[e3@47 ~ e4@45 ~@3, [a3,c#4]@47 ~]/4",
  M: "[[d#3,f#3]@23 ~ g#3@21 ~@3 [a3,c#4]@46 ~@2, b3@49 ~@47, ~@8 e3@23 ~]/4", // D#m A
  N: "[[f#3,a#3]@23 ~ a3@24 g#3@12 [c#3,a3] ~@11, c#3@95 ~ b2@22 ~@26, ~@24 e3@37 ~@11]/6", // F# F#m
  O: "[[d3,f#3]@23 ~ [c#3,e3]@23 ~ [d3,f#3]@23 ~, a3@47 ~]/6", P: "[e3,g#3,b3] ~@7",
  Q: "[[d#3,f#3]@23 ~ g#3@21 ~@3 [a3,c#4]@46 ~@2, b3 ~, ~@12 e3@35 ~]/4", // D#m A
  R: "[c#3@47 ~ a3@24, f#3, a#3@44 ~@4 d3@21 ~@3]/3", S: "[b3@12 [a3,c#4]@13 ~@11, e3@25 ~@11, g#3@11 ~@25]/3",
})).s("gm_synth_strings_1").gain(0.16)

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  A B C D E F E G H I J G K L M N O P Q R S T Q R U ~ D E D F D F V W E X Y Z M N O P AA AB AC AB AD AB AE AF AD AG AH@2
  AA AI N AJ Q R S T Q R U ~ D E D F D F V W E X Y Z M N O P
>`.pickRestart({
  A: "e2@3 ~ f#2@2 e2@4 d2@2 c#2@6 b1@6", B: "a1 ~@3", C: "a2@3 ~@2 a2 e2@4 ~ e2", D: "a2@7 ~@3 a2@2 e2@7 ~@3 e2@2",
  E: "a2@6 ~@4 a2@2 e2@7 ~@3 e2@2", F: "a2@7 ~@3 a2@2 e2@6 ~@4 e2@2", G: "a2@3 ~@2 a2 e2@3 ~@2 e2",
  H: "b2@5 ~@5 b2@2 f#2@5 ~@5 f#2@2", I: "e2 d2 c#2 e2", J: "a2@5 ~@5 a2@2 e2@7 ~@3 e2@2",
  K: "f#2@3 ~@2 f#2 c#2@3 ~@2 c#2", L: "f#2@7 ~@3 f#2@2 c#2@6 ~@4 c#2 ~", M: "d2 f#2 a2 f#2", N: "e2 d2 c#2 b1",
  O: "a1 c#2 e2 c#2", P: "a1 ~@11", Q: "d2 f#2 a2 b2", R: "d3 b2 a2 f#2", S: "a2@6 f#2@6 e2@5 ~ c#2@6",
  T: "a1@6 a1@5 ~ b1@6 c#2@6", U: "e2 ~@7", V: "b2@7 ~@3 b2@2 f#2@6 ~@4 f#2@2", W: "e2@3 d2@3 c#2 ~ c#2 e2@3, ~@2 d2 ~",
  X: "a2@3 ~@2 a2 e2@3 a2@2 e2", Y: "f#2@6 ~@4 f#2@2 c#2@7 ~@3 c#2@2", Z: "f#2@6 ~@4 f#2@2 c#2@6 f#2@4 c#2 ~",
  AA: "a1@3 c#2@3 e2@2 ~ f#2@3", AB: "a2 f#2 e2 c#2", AC: "a1@5 ~ c#2@6 e2@5 ~ f#2@6", AD: "a1@6 c#2@6 e2@5 ~ f#2@6",
  AE: "b1 d#2 f#2 d#2", AF: "e2@3 d2@3 c#2@3 b1@2 ~", AG: "a2@6 f#2@6 e2@6 c#2@5 ~", AH: "a#1 c#2 f#2 c#2",
  AI: "a2 f#2 e2 f#2", AJ: "a1 ~@7",
})).s("gm_acoustic_bass").gain(0.32)

// drums · kick
const kick = s("bd").struct("<~@2 A@15 B A@6 B ~ A@15 B A@15 B A@6 B ~ A@15 B>".pickRestart({
  A: "x ~@4 x!2 ~@5", B: "x",
})).gain(0.46)

// drums · snare
const snare = s("sd").struct(`<
  ~@2 A B A B A B A B A B A B A B A C A B A B A D ~ E 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 ~ A
  B A B A B ~ E A B A B A B A B A B A B A B A ~
>`.pickRestart({
  A: "~@3 x ~@5 x ~ x", B: "~ x ~ x", C: "~@8 x!2 ~ x", D: "~@3 x ~@4 x!4", E: "~@11 x",
})).gain(0.46)

// drums · hihat
const hihat = s("hh").struct("<~@2 A@15 B A@6 B ~ A@15 B A@15 B A@6 B ~ A@15 B>".pickRestart({
  A: "x ~ x!2 ~ x!2 ~ x!2 ~ x", B: "x",
})).gain(0.23)

stack(piano, synth_strings_1, bass, kick, snare, hihat)