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