Enumerate Chemical Compounds
Mathematica accesses a large built-in database of chemical compounds, with complete properties.
In[1]:=  |  GraphicsGrid[ Partition[ ChemicalData[#, "MoleculePlot"] & /@ Take[ChemicalData["Ester"], 16], 4], Frame -> All] |
Out[1]=  |  |