program main
  implicit none
  integer::n,k,i,j
  read *,n,k
  write (*,'(i0," ",i0)',advance='no'),0, 2

  do i=3, n - k
     if(MOD(i,2).eq.0) then
        write (*,'(" ",i0)',advance='no'),i/2+1
     else
        write (*,'(" ",i0)',advance='no'),i/2
     end if
  end do

  if(MOD(n-k,2).eq.0) then
     j = i/2+1
  else
     j = i/2
  end if

  do i=n-k+1, n
     write (*,'(" ",i0)',advance='no'), j
  end do
  print *,
end program main