let print_ocaml_output ?(output=ocamltop_output()) args =
let outputs = Ed_outputs.outputs () in
begin
try ignore(outputs#output_by_name output#name)
with Not_found ->
outputs#add_output (output :> Ed_outputs.output);
end;
outputs#show output#name;
ignore(output#insert (if Array.length args < 1 then "" else args.(0)))