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