辞書ファイルから読みがなが短いものを除去

drop-short-yomi.ml

#use "topfind"
#require "camomile"
open CamomileLibrary

let print_filter_word () =
  let rec print_filter_word_sub () =
    let line = read_line () in
    let yomi = List.hd (String.split_on_char '\t' line) in
    if 1 < UTF8.length yomi then print_endline line else ();
    print_filter_word_sub () in
  try print_filter_word_sub () with End_of_file -> ()

let _ = print_filter_word ()