#!perl -pl
`dc -e9999k2vp`=~s/.
//gr=~$_;$_="@-"-1