let debug_print = if debug then prerr_endline else ignore ;;
let disambiguate_command lexicon_status_ref grafite_status cmd =
let debug_print = if debug then prerr_endline else ignore ;;
let disambiguate_command lexicon_status_ref grafite_status cmd =