program banky;

const
  MaxN = 182;
  MaxM = 32942;

type
  tkurz = record
    odkud, kam : Integer;
    kurz : Real;
  end;

var
  meny : array [1..MaxN] of real;
  kurzy : array [1..MaxM] of tkurz;
  men, kurzu : integer;
  i, j : integer;
  novaHodnota : real;
  zmena : boolean;

begin
  read(men, kurzu);

  for i := 1 to kurzu do begin
    with kurzy[i] do
      read(odkud, kam, kurz);
  end;

  for i := 1 to men do
    meny[i] := 1;

  for i := 1 to men do begin
    zmena := false;
    for j := 1 to kurzu do begin
      novaHodnota := meny[kurzy[j].odkud] * kurzy[j].kurz;
      if (novaHodnota > meny[kurzy[j].kam]) then begin
        meny[kurzy[j].kam] := novaHodnota;
        zmena := true
      end
    end;
    if not zmena then break
  end;

  if zmena then
    writeln('Existuje pro banku prodělečná posloupnost.')
  else
    writeln('Banka nikdy neprodělá (pokud nepřijde krize).')
end.