#!perl -pal use bigint;$_=bmodpow{0+shift@F}(@F)