sub f{my($x,$_)=@_;$i<@a?$h{$i,$x}//=$x>$t||f($x+$a[$i++],"$_+")&&f($x*$a[$i-1],"$_*")*$i--:$x-$t||/./-print$'}<>;$t=<>;@a=glob<>;f