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