import Text.Printf h=init[[x,y]|x<-"CDEFGAB",y<-" #",[x,y]/="E#"] main=mapM(uncurry$printf"%-6s%.3f\n")$zip h[440*2**(i/12)::Float|i<-[-9..2]]