let rec print_and_find ori mat t i pos =
  if i>=t then Printf.printf "\n%d\n" pos
  else
    let x =List.hd mat in
    Printf.printf "%c" x.[t-1];  
    print_and_find ori (List.tl mat) t (i+1) (if (pos = (-1))&&(x=ori) then i else pos)