(tailsさんのperl $37$byte解をカンニングして)dc $40$byteだった。

dc -e[S][P][[E]1]se?1-r1-*d1=e[r]sr1\>rp