Sophie

Sophie

distrib > Mageia > cauldron > x86_64 > by-pkgid > 7760a9428e68cff97f52b2b4e39a41f1 > files > 13

camlmix-1.3.1-8.mga7.x86_64.rpm

let _ =
  match Sys.argv with
      [| _; first; last; age_s |] -> 
	let buf = Buffer.create 1000 in
	let print = Buffer.add_string buf in
	Dynamic2.render ~print (first, last, int_of_string age_s);
	let contents = Buffer.contents buf in
	print_string (String.uppercase contents)

    | _ -> prerr_string "Usage: dynamic2 firstname lastname age\n"; exit 1