dc -e'2?dsmd*1-|2sx1sy1se0sf[sbdlx*lbly*3*+lm%rly*lblx*+lm%]sh[d2%lerlfr1=hsfselxlylhxsysx2/d0<g]sgd0<gle1-2*lm%p'