dc -e'0sC
?3+sN
0[d?+lNz<A]dsAx
[?*lC+sCz0<B]dsBx
lCO9^7+%p'