#!perl -pal use bigint;$_=Math::BigInt->bmodpow(@F)