(do((x(read)(/(round x)2)))((format(>= x 1)"~f
"x)))