C 3 <pitch> 1/2 255 <note>
1/2 <rest>
line
E 3 <pitch> 1/2 255 <note>
1/2 <rest>
line
G 3 <pitch> 1/2 255 <note>
1/2 <rest>
line
B 3 <pitch> 1/2 255 <note>
1/2 <rest>
line
line
line
line
dup
-3 <transpose>
line
dup
2 <tempo>
chord
dup
7 <transpose>
line
play
construct-track-seq "test9.mid" write-midi-file