import Control.Applicative ((<$>))

genKado :: Int -> Int -> [Int]
genKado n k = replicate k 1 ++ take (n - k) (cycle [1, 4, 2, 3])

main :: IO ()
main = do
    [n, k] <- fmap read . words <$> getLine :: IO [Int]
    putStrLn . unwords . fmap show $ genKado n k