var i,j,k,n:longint;
begin
  read(n);
  while  n<>0 do
  begin
    j:=0;
    for i:=1 to n do
    begin
      read(k);
      if k<>i then inc(j);
    end;
    if (j=0) or (j>=3) then writeln('Permutaci lze prevest.') else
    writeln('Matfyzacci maji smulu.');
    read(n);
  end;
end.