let pr = fun x -> Printf.printf "%i" x in
Scanf.scanf "%i %i" (fun x y -> let a = y / x in
                      pr (a + 1))