Design a musical work utilizing the given chord pattern.
'D', 'A7', 'D', 'A7', 'D', 'D', 'A7', 'D', 'A7', 'D', 'A', 'E7', 'A', 'D', 'A', 'A', 'E7', 'A', 'A7', 'D', 'A7', 'D', 'A7', 'D', 'Bm', 'Bm', 'F#7', 'Bm', 'Bm', 'Bdim', 'D', 'A7', 'D', 'A7', 'D', 'D', 'D'  
X:1
L:1/8
M:2/4
K:D
 (3F/G/^G/ |"D" .A.f"A7" .G.e |"D" F (d>AF/D/) |"A7" C (B>AG/E/) |"D" D (B>AF/G/) | 
"D" .A.f"A7" .G.e |"D" F (d>AF/D/) |"A7" C (B>AG/E/) |"D" .D.[FD].D :: A/B/ | 
"A" .[cA](d/c/)"E7" .B(c/B/) |"A" .A/.E/"D".F/.^G/"A" .A/.B/.[cA]/.[dB]/ | 
"A" .[cA](d/c/)"E7" .B(c/B/) |"A"({B} A/^B/A/B/)"A7"({B} A/=G/F/[GE]/) | 
"D" .[AF]{A}.f"A7" .[GE]{G}.e |"D" [FD] ([dF]>AF/D/) |"A7" C ([BEC]>AG/E/) |"D" D[dF]D :: F | 
"Bm" BB({c} B/>^A/B/>c/) |"Bm"({e} d/>c/A)({e} d/>c/A) |"F#7" .[c^A]<[fF] .[cA][fF] | 
"Bm" (d/>e/c/>d/) B,B |"Bm" dd"^/Bb"({e} d/>c/"Bdim"d/>e/) |"D"({g} f/>e/d)({g} [fd]/>e/d) | 
"A7" .[ec]aA .[ec]a |1"D" f/>g/"A7" e/>f/"D" d :|2"D" [fA].[dAFD]/.[dAFD]/ .[dAFD] |]"^Coda" | 
"D" d z z"^n.c." z/ [a-cA]/ | [acA][acA] [fdA]3/2 [c'ec]/[c'ec]/ [d'afd] z |"^8va" [d'afd] z z2 | 
"^loco." [dAFD]2 z |]  