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