vec <- c("C₆H₄ClNO₂", "C₆H₆N₂O₂", "C₆H₅NO₃", "C₉H₁₀O₂", "C₈H₈O₃")
chartr("₀₁₂₃₄₅₆₇₈₉", "0123456789", vec)
s = "⁰¹²³⁴⁵⁶⁷⁸⁹"
chartr("⁰¹²³⁴⁵⁶⁷⁸⁹", "0123456789", s)
dmVjIDwtIGMoIkPigoZI4oKEQ2xOT+KCgiIsICJD4oKGSOKChk7igoJP4oKCIiwgIkPigoZI4oKFTk/igoMiLCAiQ+KCiUjigoHigoBP4oKCIiwgIkPigohI4oKIT+KCgyIpCmNoYXJ0cigi4oKA4oKB4oKC4oKD4oKE4oKF4oKG4oKH4oKI4oKJIiwgIjAxMjM0NTY3ODkiLCB2ZWMpCnMgPSAi4oGwwrnCssKz4oG04oG14oG24oG34oG44oG5IgpjaGFydHIoIuKBsMK5wrLCs+KBtOKBteKBtuKBt+KBuOKBuSIsICIwMTIzNDU2Nzg5IiwgcykK