sS dm_moduleByNameFragment(S name) {
  for (S id : dm_listModuleIDs())
    if (cic(dm_moduleName(id), name))
      ret id;
  null;
}