: music-test ( -- )
  C 4 <pitch> 1 255 <note>
  E 4 <pitch> 1 255 <note> line
  G 3 <pitch> 1 255 <note> line
  A 4 <pitch> 1 255 <note> line
  C 3 <pitch> 1 255 <note>
  C 5 <pitch> 1 255 <note> line
  D 3 <pitch> 1 255 <note> line
  G 4 <pitch> 1 255 <note> line
  2/3 <tempo>
  dup line chord
  dup 1/2 <tempo>
  dup line line
  dup 7/4 <tempo>
  line
  dup 1/3 <tempo> 7 <transpose> dup dup line line chord
  "_.mid" swap play-midi ; 

! http://danceliquid.com/docs/factor-music-2.mp3