module kkk
  sub main()
    Dim nks() As Integer = Array.ConvertAll(Of String, Integer)(Console.ReadLine.Split(" "), AddressOf Integer.Parse)
    
    dim n as long
    dim s as long
    dim ans as string
    
    n = nks(0)
    s = nks(2)
    
    dim a(n) as long
    
    dim i as long
    
    for i = 0 to n - 1
    a(i) = 1
      if i = n - 1 then
    if not i + 1 >= s then 
        a(i) = s - i
      else 
        a(i) = 1
      end if
    end if
      ans = ans & " " & a(i)
  next
    
    console.writeline(ans)
    
  end sub
end module