let rec f x y=x<=y&f(Printf.printf"%d
"x;x+1)y;;Scanf.scanf"%d,%d"f