let leitura () =
  let dados = map (fun x -> to_fita (char_of_string x)) 
    (Str.split (Str.regexp "[ \t]+")  (read_line ())) in
  let initl =  map (fun x -> int_of_string x) 
    (Str.split (Str.regexp "[ \t]+")  (read_line ())) in
  let finl = map (fun x -> int_of_string x) 
    (Str.split (Str.regexp "[ \t]+")  (read_line ()))  in
  let input = ref [] in
  try
    while (true) do
      input:= (scanf " %d %c %d " em_par)::!input
    done; (dados,(!input,initl,finl))
  with _ -> (dados,(!input,initl,finl))