main=mapM putStrLn[a:b:"    "++take 7(show$440*2**(i/12)+5e-4)|(a,b,i)<-zip3"CCDDEFFGGAAB"" # #  # # # "[-9..2]]