(dotimes(\ 12)(format #t"~6a~7,,,'0a
"(~'(C"C#"D"D#"E F"F#"G"G#"A"A#"B)\)(/(round(*(expt 1.0594631(-\ 9))44e4))1e3)))