(************************************************************
   option.ml		Created      : Tue Jul  1 00:15:48 2003
  			Last modified: Tue Jul 01 00:18:50 2003
  Compile: ocamlc option.ml -o option #
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

*)

(** 引数として unit が必要 *)

let f ?(x = 1) () =
  Printf.printf "x = %d\n" x

let _ =
  f ();
  f ~x:10 ()