Scanf.scanf "%d %d" (fun n m ->
    let a = Array.make m 0 in
    for i = 1 to n do
        Scanf.scanf " %d" (fun l ->
            let l = l - 1 in
            if l < m then a.(l) <- a.(l) + 1
        )
    done;
    Array.iteri (fun i v -> Printf.printf "%d %d\n" (i + 1) v) a
)