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]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page