#!/usr/bin/dc
2048 104 72 68.5 20
[d2%r2/2%.5-rd0=U1=V][rlX+sX][lY+sY][2/d2%0=T]sTsVsUstsYsXdsyrdsx*2r^1-sa0[P4
]nsk[d2*lTxlk+ddskltxlXdlY+rlY-lx*+2r1/^lar-saltx1-d0<S]dsSxlxn32PlyplaP