@a=(1,1,3,3,4,8);$a[5]=($a[1]+$a[2]+$a[3]+2*shift@a)%(1e9+7)for 2..<>;print$a[0]