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