Program e;
var vstup, cislo: integer;
    i: integer;
    ocekavam: integer;
    ok: boolean;
begin
  readln(vstup);
  while vstup>0 do begin
    read(cislo);
    ok:=(cislo<=vstup) and (cislo>0);

    for i:=2 to vstup do begin
      ocekavam:=(cislo+1) mod (vstup+1);
      if ocekavam=0 then ocekavam:=1;
      read(cislo);
      if (ocekavam<>cislo) then ok:=false;
    end;
    readln;
    if ok 
    then writeln('Permutaci lze prevest.')
    else writeln('Matfyzacci maji smulu.');
    readln(vstup);
  end;
end.