let main _fmt = if Print.get () then !Db.Occurrence.print_all ()