l4/pkg/ocaml/contrib/ocamlbuild/examples/example2/hello.ml

   1 open Greet
   2
   3 let _ =
   4   let name =
   5     if Array.length Sys.argv > 1 then
   6       Sys.argv.(1)
   7     else
   8       "stranger"
   9   in
  10   greet
  11     (if name = "Caesar" then Nicely else Badly)
  12     name;
  13   Printf.printf "My name is %s\n" Sys.argv.(0)
  14 ;;