(************************************************************
   check_suffix.ml	Created      : Fri Oct  3 16:12:19 2003
  			Last modified: Fri Oct 03 16:12:45 2003
  Compile: ocamlc check_suffix.ml -o check_suffix #
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

*)
let _ =
  Printf.printf "%b\n" (Filename.check_suffix "hoge.html" ".html")