dc -e'[0*]sb[z+lxz1-/dz2-=b+]sa?sx[lxz%0r0=az1+d*lx!<y+]dsyxp'