#!perl -pla
($_)=map{$i=$_ x14;/1/&/2/&/3/&/4/?grep{6*s/(?<!\))(?![(—])/$F[~-chop$i]/ge==eval s/×/*/gr}<+-- /++ ++{+,-} (×-)× (++)× ({+,-})×{-,×,({+,-})}>:()}9..$$