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