#!perl -pl
{use bigint;$_=4**$_}s/\B/+/g;$_=eval