This was implemented a while back but never posted onto my website. It’s tested on GNU dc but should work on most implementations.
$ echo '[s2s1ds0s0l1l0-l2*l0+]sl[q]sQ[3Q]sR[lxd*lyd*-lX+s0lxly2**lY+syl0sxli1+dsilm=Qlxd*lxd*+40<Qlqx]sq[[#]P]sz[[ ]P]sZ[le1+se]sh[0self1+dsf10Plh=R]sj[lalblelW/llxsXlcldlflH/llxsY0sx0sy0si40smlqxlilm=zlilm>Zle1+dselw=jlgx]sg[0se0sflgx]sG0 2.5-sa1sb0 1-sc1sd80dsw1-sW25dsh1-sH20klGx' | dc
#
##
######
###
################# #
####################
#######################
#########################
####### ##########################
########## #########################
# ####################################
###################################################
# ####################################
########## #########################
####### ##########################
#########################
#######################
####################
################# #
###
######
##
#