sig
  val print_gedcom_line : Gedcom.gedcom_line -> unit
  val print_gedcom_node : Gedcom.gedcom_node -> unit
end