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