import Text.Printf t::Int->Int t x=truncate$1189.7/sqrt(2^x) main=putStr$concat[printf"A%-2d%5dmm x%5dmm\n"a(t(a+1))(t a)|a<-[0..10]]