d=0 do 27 c=charin() d=(d+1)*(c="+")+(d*(c="^"))**2+d*(c="/")/2+0/(c<>"q") say d end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page