val translate: Format.formatter -> string -> Lustre_types.program_t -> Machine_code_types.machine_t list -> unit