import           Control.Monad                  ( forM_ )

main :: IO ()
main = do
    [n, k] <- map read . words <$> getLine :: IO [Integer]
    let factorial 0 _ = 1
        factorial _ 0 = 1
        factorial i j = i * factorial (i - 1) (j - 1)
    let comb n m = factorial n l `div` factorial l l where l = min m (n - m)
    let solve n k i = b * r `mod` 1000000007
          where
            b = comb (k - 1) (i - 1)
            r = comb (n - k + 1) i

    forM_ ([1 .. k] :: [Integer])
        $ \i -> print $ if n - k + 1 < i then 0 else solve n k i


