read a||cd /
printf %.1f\\n $[10#${a/.}*51566/9]e-${#a}
. *