Problem:
Score : 400 points

Problem Statement

Given is a tree G with N vertices.
The vertices are numbered 1 through N, and the i-th edge connects Vertex a_i and Vertex b_i.

Consider painting the edges in G with some number of colors.
We want to paint them so that, for each vertex, the colors of the edges incident to that vertex are all different.

Among the colorings satisfying the condition above, construct one that uses the minimum number of colors.

Constraints

2 \le N \le 10^5

1 \le a_i \lt b_i \le N

All values in input are integers.

The given graph is a tree.

Input

Input is given from Standard Input in the following format:

N
a_1 b_1
a_2 b_2
\vdots
a_{N-1} b_{N-1}

Output

Print N lines.

The first line should contain K, the number of colors used.

The (i+1)-th line (1 \le i \le N-1) should contain c_i, the integer representing the color of the i-th edge, where 1 \le c_i \le K must hold.

If there are multiple colorings with the minimum number of colors that satisfy the condition, printing any of them will be accepted.

Sample Input 1

3
1 2
2 3

Sample Output 1

2
1
2

Sample Input 2

8
1 2
2 3
2 4
2 5
4 7
5 6
6 8

Sample Output 2

4
1
2
3
4
1
1
2

Sample Input 3

6
1 2
1 3
1 4
1 5
1 6

Sample Output 3

5
1
2
3
4
5

Solution in OCaml (4.10.0) (judge verdict: Accepted)

let ($) f g = fun x -> g (f x)
let n = Scanf.sscanf (read_line ()) "%d" @@ fun n -> n
let ab = Array.init (n - 1) @@ fun _ -> Scanf.sscanf (read_line ()) "%d %d" @@ fun a b -> (a - 1, b - 1)

module IntMap = Map.Make(struct type t = int let compare = compare end)

let edges = 
  let add k v idx map =
    let vs = try IntMap.find k map with Not_found -> [] in
    IntMap.add k ((idx, v) :: vs) map in
  fst @@ Array.fold_left (fun (map, i) (a, b) ->
    (add b a i @@ add a b i map, i + 1)
  ) (IntMap.empty, 0) ab

let () =
  let arr = Array.make (n - 1) 0 in
  let used = Array.make n false in
  let k = IntMap.bindings edges |> List.map (snd $ List.length) |> List.fold_left max 0 in
  let que = Queue.create () in
  Queue.add (0, k + 1) que;
  while not (Queue.is_empty que) do
    let node, col = Queue.pop que in
    let children = IntMap.find node edges |> List.filter (fun (_, v) -> not used.(v)) |> List.rev in
    used.(node) <- true;
    List.iteri (fun idx (i, v) -> 
      let c = idx + if idx < col - 1 then 1 else 2 in
      arr.(i) <- c;
      Queue.add (v, c) que;
    ) children;

  done;
  Printf.printf "%d\n" k;
  Array.iter (Printf.printf "%d\n") arr;