// Do I Do — Stevie Wonder
// 114 bpm, 4/4, key B major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(114/4)

const chords = arrange(
  // intro (8 bars)
  [8, "<B^9!2 E69 F#9sus B^9!2 E69 F#9sus>"],
  // verse (8 bars)
  [8, "<B^7!2 E69 F#9sus B^7!2 E69 [F#9sus@2 G#9sus@2]>"],
  // chorus (6 bars)
  [6, "<G#m7 [D#7sus@2 G#9sus@2] G#m7 [D#7sus@2 G#9sus@2] G#m7 [D^7 C@3]>"],
  // interlude (4 bars)
  [4, "<B^9!2 E69 F#9sus>"],
  // verse (8 bars)
  [8, "<B^7!2 E69 F#9sus B^7!2 E69 [F#9sus@2 G#9sus@2]>"],
  // chorus (6 bars)
  [6, "<G#m7 [D#7sus@2 G#9sus@2] G#m7 [D#7sus@2 G#9sus@2] G#m7 [D^7 C@3]>"],
  // interlude (12 bars)
  [12, "<B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 F#9sus>"],
  // bridge (8 bars)
  [8, "<[Db69@2 Ab7@2] Db^7 [F9sus@2 Bb7@2] Eb^7 [C9sus@2 C7@2] F^7 [F#7sus@2 B6@2] Baug>"],
  // interlude (4 bars)
  [4, "<B5!2 E5 F#5>"],
  // verse (8 bars)
  [8, "<B^7!2 E69 F#9sus B^7!2 E69 [F#9sus@2 G#9sus@2]>"],
  // chorus (6 bars)
  [6, "<G#m7 [D#7sus@2 G#9sus@2] G#m7 [D#7sus@2 G#9sus@2] G#m7 [D^7 C@3]>"],
  // interlude (12 bars)
  [12, "<B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 F#9sus>"],
  // bridge (8 bars)
  [8, "<[Db69@2 Ab7@2] Db^7 [F9sus@2 Bb7@2] Eb^7 [C9sus@2 C7@2] F^7 [F#7sus@2 B6@2] Baug>"],
  // interlude (24 bars)
  [24, "<B5!2 E5 F#5 B5!2 E5 F#5 B5!2 E5 F#5 B5!2 E5 F#5 B^7!2 E69 F#9sus B^7!2 E69 F#9sus>"],
  // solo (8 bars)
  [8, "<B^7!2 E69 F#9sus B^7!2 E69 [F#9sus@2 G#9sus@2]>"],
  // solo (6 bars)
  [6, "<G#m7 [D#7sus@2 G#9sus@2] G#m7 [D#7sus@2 G#9sus@2] G#m7 [D^7 C@3]>"],
  // solo (12 bars)
  [12, "<B^7!2 E69 F#9sus B^7!2 E69 F#9sus B^7!2 E69 [F#9sus@2 G#9sus@2]>"],
  // chorus (6 bars)
  [6, "<G#m7 [D#7sus@2 G#9sus@2] G#m7 [D#7sus@2 G#9sus@2] G#m7 [D^7 C@3]>"],
  // interlude (12 bars)
  [12, "<B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 F#9sus>"],
  // bridge (9 bars)
  [9, "<[Db69@2 Ab7@2] Db^7 [F9sus@2 Bb7@2] Eb^7 [C9sus@2 C7@2] F^7 [F#7sus@2 B6@2] Baug!2>"],
  // interlude (4 bars)
  [4, "<B5!2 E5 F#5>"],
  // verse (8 bars)
  [8, "<B^7!2 E69 F#9sus B^7!2 E69 [F#9sus@2 G#9sus@2]>"],
  // chorus (6 bars)
  [6, "<G#m7 [D#7sus@2 G#9sus@2] G#m7 [D#7sus@2 G#9sus@2] G#m7 [D^7 C@3]>"],
  // interlude (44 bars)
  [44, "<B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2] B^9 [B^9@2 Bb6@2] E69 [F#9sus@2 C^9@2]>"],
  // interlude (18 bars)
  [18, "<~!10 B5!4 ~!4>"],
  // interlude (44 bars)
  [44, "<B5!2 E5 F#5 B5!2 E5 F#5 B5!2 E5 F#5 B5!2 E5 F#5 B5!2 E5 F#5 B5!2 E5 F#5 B5!2 E5 F#5 B5!2 E5 F#5 ~!11 [~@3 B5]>"],
)
const bassline = arrange(
  [8, "<b2!2 e2 f#2 b2!2 e2 f#2>"],
  [8, "<b2!2 e2 f#2 b2!2 e2 [f#2@2 g#2@2]>"],
  [6, "<g#2 [d#2@2 g#2@2] g#2 [d#2@2 g#2@2] g#2 [d2 c2@3]>"],
  [4, "<b2!2 e2 f#2>"],
  [8, "<b2!2 e2 f#2 b2!2 e2 [f#2@2 g#2@2]>"],
  [6, "<g#2 [d#2@2 g#2@2] g#2 [d#2@2 g#2@2] g#2 [d2 c2@3]>"],
  [12, "<b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 f#2>"],
  [8, "<ab2 db2 [f2@2 bb2@2] eb2 c2 f2 f#2!2>"],
  [4, "<b2!2 e2 f#2>"],
  [8, "<b2!2 e2 f#2 b2!2 e2 [f#2@2 g#2@2]>"],
  [6, "<g#2 [d#2@2 g#2@2] g#2 [d#2@2 g#2@2] g#2 [d2 c2@3]>"],
  [12, "<b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 f#2>"],
  [8, "<ab2 db2 [f2@2 bb2@2] eb2 c2 f2 f#2!2>"],
  [24, "<b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2>"],
  [8, "<b2!2 e2 f#2 b2!2 e2 [f#2@2 g#2@2]>"],
  [6, "<g#2 [d#2@2 g#2@2] g#2 [d#2@2 g#2@2] g#2 [d2 c2@3]>"],
  [12, "<b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 [f#2@2 g#2@2]>"],
  [6, "<g#2 [d#2@2 g#2@2] g#2 [d#2@2 g#2@2] g#2 [d2 c2@3]>"],
  [12, "<b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 f#2>"],
  [9, "<ab2 db2 [f2@2 bb2@2] eb2 c2 f2 f#2!3>"],
  [4, "<b2!2 e2 f#2>"],
  [8, "<b2!2 e2 f#2 b2!2 e2 [f#2@2 g#2@2]>"],
  [6, "<g#2 [d#2@2 g#2@2] g#2 [d#2@2 g#2@2] g#2 [d2 c2@3]>"],
  [44, "<b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2] b2 [b2@2 f2@2] e2 [f#2@2 c2@2]>"],
  [18, "<~!10 b2!4 ~!4>"],
  [44, "<b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 b2!2 e2 f#2 ~!11 [~@3 b2]>"],
)

// chords · gm_piano
const keys = chord(chords).voicing().s("gm_piano").gain(0.8)
// bass · gm_electric_bass_finger
const bass = note(bassline).s("gm_electric_bass_finger").gain(0.9)
// drums
const drums = s("[bd hh] [sd hh] [bd hh] [sd hh]").gain(0.8)

stack(keys, bass, drums)