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