{ CEOI'98 Penktoji Centrin�s Europos �ali� informatikos olimpiada }
{ Zadar, Kroatija }
{ Antras u�davinys KORTEL�S }

{ Sprendim� pareng� Justas Kranauskas, VTGTM lic�jus, 12 kl. }

{ ID�JA: Pagal sura�ytus skai�ius Alisa i�d�lioja korteles:
  pozicijoje ai yra kortel� su numeriu a(i+1).

  Tai rei�kia, kad i�d�liotas korteles galime vaizduoti grafu
  (t. y. vienu ciklu grafe). Grafas sudaromas taip: jei pozicijoje x
  yra kortel� su numeriu y, tai i� vir��n�s x nukreipiama briauna �
  vir��n� y.

       a1 --> a2 --> a3 -->a4 --> an -- > a1

  Imkime vir��n� a1.
  I� jos nukreipta briauna � vir��n� a2 (� vir��n� a su numeriu 2^0 + 1;)
  Po pirmo mai�ymo i� jos bus nukreipta briauna � vir��n� a3 (2^1 + 1);
  Po antro mai�ymo bus nukreipta � a5 (2^2 + 1);
  ....
  Po k-tojo mai�ymo bus nukreipta � ax, kur x = 2^k + 1;

  Vir��n�s skai�iuojamas moduliu n.
  T. y. x = 2^k mod n + 1;

  Jei �rodysime, kad po kurio laiko i� a1 briauna bus nukreipta � a2,
  tai korteli� i�d�stymas pasikartos. Kadangi graf� sudaro vienas ciklas,
  galime pernumeruoti vir��nes ir gausime, kad tai galioja kiekvienai
  vir��nei: t. y. po ka�kiek dvigubo mai�ymo operacij�, i� ai bus
  nukreipta briauna � a(i+1).

  I� a1 i�einanti briauna bus nukreipta � a2, jei egzistuos toks k, kad
      2^k mod n + 1 = 2,
  t. y. jei 2^k mod n = 1,
  k - dvigubo mai�ymo operacij� skai�ius, k >= 1;

  Oilerio teorema teigia: Jeigu a ir m neturi bendr� dalikli�,
  (t. y. bdd (a, m) =  1), tai a^(fi(m)) mod m = 1;

  �ia fi(m) yra Oilerio funkcija. Ji lygi kiekiui nat�rini� skai�i� ne
  didesni� u� m ir tarpusavyje pirmini� su m.

  M�s� atveju a = 2, m = n. kadangi n nelyginis, tai bdd(2, n) = 1. taigi,
  galime taikyti Oilerio teorem�. Kai mai�ymo operacij� skai�ius taps lygus
  k = fi(n), i� a1 i�einanti briauna v�l bus nukreipta � a2.

  Taigi, su turimomis kortel�mis reikia atlikin�ti dvigubo mai�ymo operacijas
  kol v�l gausime dabartin� situacija. Atlikt� mai�ymo operacij� skai�i�
  (t.y. periodo ilg�) pa�ym�kime P. Norint gauti pradin� korteli�
  i�d�stym� reikia atlikti (P - S mod P) dvigubo mai�ymo operacij�.
  }

program korteles;
  const maxn = 1000;
  type eile = array [1..maxn] of integer;

  var f : text;
      n, kiek, i : integer;
      m1 : eile;

  procedure maisyk (m1 : eile; var m2 : eile);
  {sumai�o kortas}
    var i : integer;
  begin
    for i := 1 to n do
      m2[i] := m1[m1[i]];
  end;

  function lygu (m1, m2 : eile) : boolean;
  {patikrina, ar kort� i�sid�stymas yra vienodas}
    var i : integer;
  begin
    lygu := true;
    for i := 1 to n do
      if m1[i] <> m2[i]
        then
          begin
            lygu := false;
            break;
          end;
  end;

  procedure atmaisyk (var m1 : eile; kiek : integer);
    var i, cikl : integer;
        m2 : eile;
  begin
    cikl := 1;
    maisyk (m1, m2);
    while not lygu (m1, m2) do
    {randa ciklo ilg�}
      begin
        maisyk (m2, m2);
        inc (cikl);
      end;
    kiek := kiek mod cikl;
    {jeigu Alisa mai�� kortas daugiau kart�, nei susidaro ciklas,
    reikia palikti tik tuos mai�ymus, kurie nesudaro pilno ciklo}
    for i := 1 to cikl - kiek do
    {kortas mai�ome tiek kart�, kad jos gr��t� � pad�t�, nuo kurios
    buvo prad�tos mai�yti}
      maisyk (m1, m1);
  end;

begin
  assign (f, 'cards.in');
  reset (f);
  readln (f, n, kiek);
  for i := 1 to n do
    readln (f, m1[i]);
  close (f);

  atmaisyk (m1, kiek);

  assign (f, 'cards.out');
  rewrite (f);
  for i := 1 to n do
    writeln (f, m1[i]);
  close (f);
end.