#!perl -pl {use bigint;$_=4**($_&63)*($c{$_&=~63}//=4**$_)}s/./+$&/g;$_=eval