dc -e?2^r2^-vp|perl -E'say<>+0'