let peasy_fixpoint s nodes = match easy_fixpoint s nodes with | None -> medium_fixpoint s nodes | r -> r