oct <- chent$new("1-octanol", smiles = "CCCCCCCCO")
oct$try_pubchem()
print(oct)
plot(oct)