let rec print_outputs oes = match oes with | [] -> print_string("\n") | hd::tl -> print_string(string_of_output hd ^ "; "); print_outputs tl