oct <- chent$new("1-octanol", smiles = "CCCCCCCCO")
print(oct)
if (!is.null(caffeine$Picture)) {
  plot(oct)
}