Module Arch_extra.MkToIdent