(do((i(read)(/(round i)2)))((format(<= 1 i)"~F
"i)))