dc -e[0*r]sa??1[d1=adsx/0r^lxr+1-z3\<f]dsfxp