(************************************************************
   localtime.ml		Created      : Thu Jul 24 22:39:26 2003
  			Last modified: Thu Jul 24 22:44:05 2003
  Compile: ocamlc unix.cma localtime.ml -o localtime #
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

*)
let nine_hours = 9 * 60 * 60 
let _ =
  let epoch = float_of_int (1059040697 - nine_hours) in
  let tm = Unix.localtime epoch in
  Printf.printf "%2d/%2d %02d:%02d\n" (tm.Unix.tm_mon+1) tm.Unix.tm_mday tm.Unix.tm_hour tm.Unix.tm_min