#!perl -pl
use bigint;$_**=4