3 testMusic
= { << c''4 \\ g'4 >> }
5 #(use-modules
(scm to-xml
))
7 #(ly
:progress
"\nXML:\n\n~A\n" (call-with-output-string
(lambda
(p
) (music-to-xml testMusic p
))))
12 "The input representation is generic, and may be translated to XML. "