import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> map read <$> words <$> getLine >>= mapM_ print

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