Wojciech Jaworski / ENIAM

open ENIAM_EdgeScore
open MST_Model
let () =
  let model = read_model "dep.model.json" in
  match model with
    None -> print_endline "none"
  | Some m -> print_int (Array.length m.parameters); print_newline ();
    print_int (Xstd.StringMap.size m.dataAlphabet); print_newline ();
    print_int (Xstd.StringMap.size m.typeAlphabet); print_newline ()