program algerba;
var perm:array[0..100000] of longint;
    oznac:array[0..100000] of boolean;
   n,i,j,vel:integer;
   sude:integer;
begin
 readln(n);
 while (n<>0) do
 begin
   for i:=1 to n do begin read(perm[i]); oznac[i]:=false; end;
   sude:=0;
   for i:=1 to n do
   begin
     if oznac[i] then continue;
     oznac[i]:=true;
     j:=perm[i]; vel:=1;
     while j<>i do begin oznac[j]:=true; j:=perm[j]; Inc(vel); end;
 {    writeln(vel); } 
     sude:=(sude+vel-1) mod 2;
   end;
   if sude=0 then writeln('Permutaci lze prevest.') else 
   writeln('Matfyzacci maji smulu.');

   readln(n);
 end; 
end.