(* demexp_program.ml *)
let t = Demexp.load_demexp "demexp_base.xml" in
  List.map (Format.printf "@[%s@ %s @]" "individual:") t ;;