d=0 do 27 c=charin() d=(d+1)*(c="+")+(d*(c="^"))**2+d*(c="/")/2+0/(c<>"q") say d end