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



let print_participant_array a =
  let kind_to_string k =
    match k with 
      | Demexp.Individual -> "individal"
      | Demexp.Delegate -> "delegate"
  in
    let participant_to_string p = 
      Format.sprintf "{kind=%s; login=%s; password=%s}" (kind_to_string p.Demexp.kind) p.Demexp.login p.Demexp.password 
    in  
      Array.iter (function (i,p) -> Format.printf "@[%i,address@hidden@\n" i (participant_to_string p)) a;
  ;;

(*
let print_question_array a =
  Array.iter (function (i,q) -> Format.printf "@[%i,address@hidden@\n" i (question_to_string q)) a
 ;;
*)

let t = Demexp.load_xml_demexp_participants "demexp_base_example.xml" in
  print_participant_array t ;;


let t = Demexp.load_xml_demexp_tags "demexp_base_example.xml" in
  Array.iter (function (i,s) -> Format.printf "@[%i@ address@hidden@\n" i s) t
  ;;

let t = Demexp.load_xml_demexp_questions "demexp_base_example.xml" ;;
  (* print_question_arry t ;; *)