Scanf.scanf "%d" (fun n ->
    let ts = Array.init n (fun _ -> Scanf.scanf " %d %s" (fun t s -> t, s)) in

    Array.fold_left (fun (acc1, acc2) (t, s) ->
        let k = String.length s in
        let m = 12 * t / 1000 in
        acc1 + max 0 (k - m), acc2 + min m k) (0, 0) ts |> (fun (a1, a2) -> Printf.printf "%d %d\n" a2 a1)
)