(************************************************************
   file.ml		Created      : Sat Nov  2 19:20:09 2002
  			Last modified: Sat Nov 02 19:22:47 2002
  Compile: ocamlopt.opt file.ml -o file #
************************************************************)
(**

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

*)

let target = "/home/tak/test/file.ml"
let _ =
  print_endline (Filename.chop_extension target)