import           Control.Monad                  ( forM_ )


main :: IO ()
main = do
    [n, k] <- map read . words <$> getLine :: IO [Int]
    let pascals 0 = [1] :: [Integer]
        pascals n =
            1 : (zipWith (\a b -> (a + b) `mod` 1000000007) a (tail a)) ++ [1]
            where a = pascals (n - 1) :: [Integer]

        solve n k i = b * r `mod` 1000000007
          where
            b = pascals (k - 1) !! (i - 1)
            r = pascals (n - k + 1) !! i

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

