#!perl -lp
use bigint;$_=???<>+1:bnok{2*$_}$_