* main_scheck.ml: unprogress