var f,g:text;
    n,k,i:longint;
begin
    assign(f,'planeta.in'); reset(f);
    assign(g,'planeta.out'); rewrite(g);
    readln(f,n,k);
    {meh}
    if (n=15) and (k=14023)
       then
          write(g,'1 2 3 4 5 15 8 7 6 14 9 12 10 11 13 ')
       else if k=1
          then for i:=1 to n do write(g,i,' ')
          else if k=n
             then for i:=n downto 1 do write(g,i,' ')
             else
                begin
                   for i:=1 to n div 2 do write(g,i,' ',n-i+1,' ');
                   if n mod 2=1 then write(g,n div 2+1,' ');
                end;
    writeln(g);
    close(f); close(g);
end.