use strict;
use warnings;
use Data::Dumper;
use Chemistry::File::Formula;

while(<DATA>)
{
	chomp;
	my %formula = Chemistry::File::Formula->parse_formula("$_");
	
	print "-" x 16, "\n";

	print Dumper \%formula;

	print "-" x 16, "\n";
}


__DATA__
C6H5OH
C6H9
Hg