* main_codegraph.ml: adhoc script