#!/usr/bin/perl
++vec$\,$,+=y...c,1for+split/\W+/,+q;s/__*/pop/ge,@qq[11*$_-&_]|=\12-&_,sub _{
$_[(push@{$qq[@_]},$_[unshift(@___,shift),1],\010)]=&{_ x@qq},y._1..d>3?_:$qq[
0]=$ARGV[$qq[-1]]}1+while$qq[2]<11||do{pop@_ for@___[0..2]}&unshift reverse@qq
[@qq]&&__.&___,_,sub ___{@_[$_]=eval q+do$0||sprintf'%01e2ld',$qq[_?11:shift@_
],do$0+,push@_,$qq[-1]+tr._1..c}$qq[&__]=&___+1 for(@___)x$_,$ARGV[-1]or eval+
qq;;;print