(* demexp.cd *)
let load_demexp (f : Latin1) : [ Latin1* ] =
  let d = load_xml f in
    map [d]/<participant_base>_/<participant kind="individual">_/<login>Latin1  with
      <login>s -> s
  ;;