import Text.Printf main=f[0,841,1189] f[n,a,b]=printf"A%-2d%5dmm x%5dmm\n"n a b>>f[[1..10]!!n,div b 2,a]