sub parse
{
	my ($regex,$input)=@_;
	for(@$regex)
	{
		if($input=~m/(.+)($_)(.+)/)
		{
			my ($before,$op,$after,$node)=($1,$2,$3);
			$node->{$op}=[parse($regex,$before), parse($regex,$after)];
			return $node;
		}
	}
	return $input;
}