let check s nodes =
Debug.unsafe s;
TimeFix.start ();
let r =
match easy_fixpoint s nodes with
| None ->
(match medium_fixpoint s nodes with
| None -> hard_fixpoint s nodes
| r -> r)
| r -> r
in
TimeFix.pause ();
r