Scanf.scanf "%d" (fun t -> for i = 1 to t do Scanf.scanf " %d %d" (fun a b -> Printf.printf "%d\n" ((a + 1) * b) ) done )