]> rtime.felk.cvut.cz Git - l4.git/blob - l4/pkg/ocaml/contrib/ocamlbuild/examples/example1/hello.ml
update
[l4.git] / l4 / pkg / ocaml / contrib / ocamlbuild / examples / example1 / hello.ml
1 let _ =
2   Printf.printf "Hello, %s ! My name is %s\n"
3     (if Array.length Sys.argv > 1 then Sys.argv.(1) else "stranger")
4     Sys.argv.(0)
5 ;;