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