$2=1{r=e;for(gsub(/\^/,FS);c=$2*/x/;)r=(/^\+/?r"+":r)c*$1(--c>sub(/../,$1=e)?"x^"c:c?"x":e)}$0=r