{
TASK: JEKSP
LANG: PASCAL
}

program jeksp;
  const inpFile = 'EKSP.IN';
        outFile = 'EKSP.OUT';
  var f: text;
      h1, m1, h2, m2, a1, a2: integer;
      kiek: integer;

  function jeksperimentas(h1, m1, h2, m2: integer; var a1, a2: integer): integer;
  begin
    a1 := (24 * 60 - (h1 * 60 + m1)) + h2 * 60 + m2;
    a2 := -1;
    if (h1 = h2) and (m1 = m2)
      then jeksperimentas := 1
      else
        begin
          a2 := (24 * 60 - (h2 * 60 + m2)) + h1 * 60 + m1;
          jeksperimentas := 2;
        end;
  end;

begin
  assign(f, inpFile);
  reset(f);
  readln(f, h1, m1);
  readln(f, h2, m2);
  close(f);

  kiek := jeksperimentas(h1, m1, h2, m2, a1, a2);

  assign(f, outFile);
  rewrite(f);
  writeln(f, a1);
  if kiek = 2
    then writeln(f, a2);
  close(f);
end.