(************************************************************
   use_functor_now.ml	Created      : Wed Jan  8 18:13:56 2003
  			Last modified: Wed Jan 08 18:15:58 2003
  Compile: ocamlopt.opt use_functor_now.ml -o use_functor_now #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

*)
type edge = string * string
module EdgeSet = Set.Make(
  struct
    type t = edge
    let compare = compare
  end)

open EdgeSet
    
let _ =
  List.iter (fun (x, y) -> print_endline (x^" "^y)) (elements (add ("hogera", "mogera") (add ("tak","mamewo") empty)))