#!perl -lp
use bigint;$_=bnok{2*$_}$_