main=mapM putStrLn[a:b:" "++take 7(show$440*2**(i/12)+5e-4)|(a,b,i)<-zip3"CCDDEFFGGAAB"" # # # # # "[-9..2]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page