// Walk Like A Man — Grand Funk Railroad
// 127 bpm, 4/4, key E major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(127/4)

const chords = arrange(
  // intro (8 bars)
  [8, "<E [E D@3] E [E D@2 A] E [E D@2 A] E!2>"],
  // instrumental (8 bars)
  [8, "<[D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E>"],
  // chorus (8 bars)
  [8, "<[D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E>"],
  // verse (8 bars)
  [8, "<[D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E>"],
  // chorus (8 bars)
  [8, "<[D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E>"],
  // trans (4 bars)
  [4, "<D A E!2>"],
  // verse (8 bars)
  [8, "<[D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E>"],
  // chorus (8 bars)
  [8, "<[D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E>"],
  // bridge (6 bars)
  [6, "<[F@2 Esus B^7] [B^7@2 A@2] [B C@2 D] [D# E D@2] [D@2 A@2] [A@2 ~@2]>"],
  // interlude (8 bars)
  [8, "<E [E D@3] E [E D@2 A] E [E D@2 A] E!2>"],
  // solo (24 bars)
  [24, "<[D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E>"],
  // bridge (10 bars)
  [10, "<[F@2 Esus B^7] [B^7@2 A@2] [B C@2 D] [D# E D@2] [D@2 A@2] [A@2 E@2] E [E@2 D@2] [D@2 A@2] [A@2 ~@2]>"],
  // instrumental (12 bars)
  [12, "<Em7!12>"],
  // chorus (8 bars)
  [8, "<[D@2 A@2] E [D@2 A@2] E [D@2 A@2] E [D@2 A@2] E>"],
)
const bassline = arrange(
  [8, "<e2 [e2 d2@3] e2 [e2 d2@2 a2] e2 [e2 d2@2 a2] e2!2>"],
  [8, "<[d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2>"],
  [8, "<[d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2>"],
  [8, "<[d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2>"],
  [8, "<[d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2>"],
  [4, "<d2 a2 e2!2>"],
  [8, "<[d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2>"],
  [8, "<[d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2>"],
  [6, "<[f2@2 e2 d#2] [d#2@2 a2@2] [b2 c2@2 d2] [d#2 e2 d2@2] [d2@2 a2@2] [a2@2 ~@2]>"],
  [8, "<e2 [e2 d2@3] e2 [e2 d2@2 a2] e2 [e2 d2@2 a2] e2!2>"],
  [24, "<[d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2>"],
  [10, "<[f2@2 e2 d#2] [d#2@2 a2@2] [b2 c2@2 d2] [d#2 e2 d2@2] [d2@2 a2@2] [a2@2 e2@2] e2 [e2@2 d2@2] [d2@2 a2@2] [a2@2 ~@2]>"],
  [12, "<e2!12>"],
  [8, "<[d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2 [d2@2 a2@2] e2>"],
)

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