let id = fun x -> x;;

let have_one_whole_in_common = function
    x -> print_int(1);;1 (* TODO *)
;;

let _ =
    let n = Scanf.scanf "%d " id in
    let m = Scanf.scanf "%d " id in
    let pins = Array.init n (fun _ ->
        Array.init m (fun _ ->
            Scanf.scanf "%c" ( function
                'o' -> 1
                | _ -> 0
            )
        )
    ) in
    have_one_whole_in_common pins;;