(loop(format t"~,2F
"(*(expt 8(/(read)36))8.1758)))