a=261.62565
do i=1 to 12
say left(word("C C# D D# E F F# G G# A A# B",i),6)format(a,,3)
a=a*1.059463
end