let rec f()=Scanf.scanf"%f "((2.$1.)1.)and($)i
k j l=i*.i>l&f(Printf.printf"%.f
"(k*.max(l-.1.)j))||mod_float l i=0.&(i$j*.k)i(l/.i)||(i+.1.$k)i l;;f()