Program e;

var vstup, cislo: integer;
    i: integer;
    ok: boolean;
    pocet: integer;
begin
  readln(vstup);
  while vstup>0 do begin
    pocet:=0;
    for i:=1 to vstup do begin
      read(cislo);
      if cislo<>i then Inc(pocet, 1);
    end;
    readln;
    if (pocet mod 3)=0
    then writeln('Permutaci lze prevest.')
    else writeln('Matfyzacci maji smulu.');
    readln(vstup);
  end;
end.