(while(= a(read)n 0 d 1e3)(drain(prn(-- n(int:-((if(< n a)- +)(zap / d 2))0.1))" "(if(< n a)'<(> n a)'>"=
"))a))