#!perl -pla
for$o(grep/1/&/2/&/3/&/4/,9..$$){$i=$o,6*s/(?<!\))(?!\()/$F[-chop$i]/ge-eval or$a=s/\*/×/grfor@_=(<({-,+})\\*{(-),(+),\\*,-}>,qw!(++)* (*-)* +++ ++- /++ +--!)}$_=$a