let main () =
  let dados,maquina = leitura () in
  let (a,b,c) = maquina in 
    try
      let memor = ref (b,dados)  in
        
        (** Enquanto houver passos de execução por realizar, executar. A excepção FIM é lançada para assinalaro fim da execução. *)

      while true do
        memor := (step !memor maquina)
      done
    with
        FIM x -> print_output x maquina