#paste this into 'dc' running in a maximized xterm
[lolssdsl0lqx]sx[1+lddd*lld*-ls+dsdrll2**lo+dsld*rd*+4<kd15>q]sq[q
]9ksk[d148/3*2-ss47lxx-P1+d150>0]s00[d46/.5-3*so0l0xr10P1+d48>u]dsux

#original at http://johan.kiviniemi.name/blag/2006/12/28/fun-with-dc/