let leitura () =
  let dados = map (fun x -> char_of_string x) 
   (Str.split (Str.regexp "[ \t]+")  (read_line ())) in
  let initl = read_int () 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:fita),((!input,initl,finl):maquina))