#!perl -pl
sub h{$h{local$_=++$_>>1}//=$_<5||(&h*&h+&h*&h)%1e9}$_+=$_+5;$_=h