program time1;

{$APPTYPE CONSOLE}


 
Var
  A : array[1..1000] of int64;
i,n: integer; s,g,h: int64;
Procedure Swap(i, j : Integer);
Var
  b : integer;
Begin
  b := a[i];
  a[i] := a[j];
  a[j] := b
End;


Procedure Hoare(L, R : Integer);
Var
  left, right : Integer;
  x : integer;
Begin
 If L < R
   then begin
     x := A[(L + R) div 2];
     left := L;
     right := R ;
     Repeat
       While A[left] < x do
         left := left + 1;
       While A[right] > x do
         right:=right - 1;
       If left <= right
         then begin
           Swap(left, right);
           left := left + 1;
           right := right - 1;
     	end
     until left > right;
     Hoare(L, right);
     Hoare(left, R)
   end
End;

Begin

readln(n);
for i:=1 to n do
begin
readln(g,h,s);
a[i]:=g*3600+h*60+s;
end;
Hoare(1, n);

for i:=1 to n do
begin
s:=a[i] mod 60;
h:=a[i] div 60 mod 60;
g:=a[i] div 3600;
writeln(g,' ',h,' ',s);
end;
readln;
readln;
End.