say (0,1,1,my$a=2,(*+* *++$a)%(1e9+7)...*)[$_=get]*$_%(1e9+7)