(setf(long-float-digits)999)(format t"~,100F"(log(*(read)1L0)(read)))