let many_sat gl = Printf.printf "# Result: %d disjunctive assignments found; use select(n)\n" (List.length gl); match !solverstate with | x::xs -> solverstate := (Alternatives gl)::xs | _ -> failwith "Lack of context"