oct <- chent$new("1-octanol")
print(oct)