(************************************************************
   maptest.ml		Created      : Mon Dec 16 00:44:39 2002
  			Last modified: Mon Dec 16 00:51:14 2002
  Compile: ocamlopt.opt maptest.ml -o maptest #
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

*)

(* あれ? 値の型は.... *)
module StringMap = Map.Make(String)

(* 言わんとすること。あとに付け加わる mamewo が有効 (fold_rightであることに注意) *)
let _ =
  print_endline (StringMap.find "tak" 
		   (List.fold_right (fun (k,v) m -> StringMap.add k v m) 
		      [("aki", "okui"); ("tak", "mamewo"); ("tak", "takashi")] StringMap.empty))