let () =
print_endline "";
print_endline "";
let print_entity d =
Printf.printf "&#%d;" d;
in
let print_equiv d s =
print_endline s;
print_endline " ";
print_entity d;
print_endline "
";
in
print_equiv 1705 "K";
print_equiv 1587 "S";
print_equiv 1605 "M";
print_equiv 1610 "Y";
begin
print_endline "KSMY";
print_endline " ";
print_entity 1705;
print_entity 1587;
print_entity 1605;
print_entity 1610;
print_endline "
";
end;
print_endline "";
print_endline "";
;;