Scanf.scanf "%d %d %c" (fun n m op -> let b = Array.init m (fun _ -> Scanf.scanf " %d" (fun b -> b)) in for i = 1 to n do Scanf.scanf " %d" (fun a -> for j = 1 to m do let v = if op = '+' then a + b.(j - 1) else a * b.(j - 1) in Printf.printf "%d " v done ); print_newline () done )