let coqc logs w script =
proof logs w script >>=
fun fgoal ->
let fgoal = Filename.chop_suffix fgoal ".v" in
Logs.add_file logs (fgoal ^ ".vo") ;
let denv = Wp_parameters.get_output() in
let timeout = Wp_parameters.Timeout.get() in
let stdout = Buffer.create 512 in
let args = [| "-noglob";"-I" ; denv ; "-compile"; fgoal |] in
Logs.command logs "coqtop" args ;
Task.command ~timeout ~stdout "coqtop" args
>>? Logs.output logs ~status:[0;1] stdout