(************************************************************
   basename.ml		Created      : Sun Jan 12 04:45:37 2003
  			Last modified: Sun Jan 12 04:58:08 2003
  Compile: ocamlopt.opt basename.ml -o basename #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>
   basename はパスのディレクトリの部分をとった部分
*)
let target = "/home/tak/test/graph.ml" in
print_string (String.capitalize (Filename.chop_extension (Filename.basename target)))