Problem:
Score : 500 points

Problem Statement

You are given a tree with N vertices 1,2,\ldots,N, and positive integers c_1,c_2,\ldots,c_N.
The i-th edge in the tree (1 \leq i \leq N-1) connects Vertex a_i and Vertex b_i.

We will write a positive integer on each vertex in T and calculate our score as follows:

On each edge, write the smaller of the integers written on the two endpoints.

Let our score be the sum of the integers written on all the edges.

Find the maximum possible score when we write each of c_1,c_2,\ldots,c_N on one vertex in T, and show one way to achieve it. If an integer occurs multiple times in c_1,c_2,\ldots,c_N, we must use it that number of times.

Constraints

1 \leq N \leq 10000

1 \leq a_i,b_i \leq N

1 \leq c_i \leq 10^5

The given graph is a tree.

Input

Input is given from Standard Input in the following format:

N
a_1 b_1
:
a_{N-1} b_{N-1}
c_1 \ldots c_N

Output

Use the following format:

M
d_1 \ldots d_N

where M is the maximum possible score, and d_i is the integer to write on Vertex i.
d_1,d_2,\ldots,d_N must be a permutation of c_1,c_2,\ldots,c_N.
If there are multiple ways to achieve the maximum score, any of them will be accepted.

Sample Input 1

5
1 2
2 3
3 4
4 5
1 2 3 4 5

Sample Output 1

10
1 2 3 4 5

If we write 1,2,3,4,5 on Vertex 1,2,3,4,5, respectively, the integers written on the four edges will be 1,2,3,4, for the score of 10. This is the maximum possible score.

Sample Input 2

5
1 2
1 3
1 4
1 5
3141 59 26 53 59

Sample Output 2

197
59 26 3141 59 53

c_1,c_2,\ldots,c_N may not be pairwise distinct.

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

let split_string ?(pattern=" ") = Str.split @@ Str.regexp pattern

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)
let c = List.sort (fun a b -> b - a) @@ List.map int_of_string @@ split_string @@ read_line ()

let rec sum = function | [] -> 0 | x :: xs -> x + sum xs
let sum = sum c - List.hd c

let rec find_index i arr f = 
  if Array.length arr = i then -1
  else if f arr.(i) then i
  else find_index (i + 1) arr f
let find_index = find_index 0 ab

let s = Array.make n false
let ans = Array.make n 0

let rec loop = function
  | [] -> ()
  | x :: xs ->
    let idx = find_index (fun (a, b) -> a + b > 0 && (s.(a) || s.(b))) in
    let (a, b) = ab.(idx) in
    ab.(idx) <- (-1, -1);
    if s.(a) then begin
      s.(b) <- true; ans.(b) <- x
    end
    else begin
      s.(a) <- true; ans.(a) <- x
    end;
    loop xs

let () =
  match c with
    | x :: [] -> print_endline "0"
    | x :: y :: xs ->
      let (a, b) = ab.(0) in
      ab.(0) <- (-1, -1);
      ans.(a) <- x; s.(a) <- true;
      ans.(b) <- y; s.(b) <- true;
      loop xs;
      Printf.printf "%d\n" sum;
      print_endline @@ String.concat " " @@ Array.to_list @@ Array.map string_of_int ans;
    | _ -> failwith ""