main :: IO()
main = do
  [n, k] <- map read . words <$> getLine :: IO [Int]
  let ans | m > 0 = show (-1)
          | otherwise = unwords $ map show $ replicate d 1 ++ replicate (n - d) 2
          where dm = divMod n k
                d = fst dm
                m = snd dm
  putStrLn ans