for(i,-9,2,writeln("C C#D D#E F F#G G#A A#B "slice(a:=(i+9)*2,a+2),"    ",(440*2**(i/12))asString(0,3)))