(loop(format t"~$
"(*(expt 8(/(read)36))8.1758)))