/trunk/Examples/ocaml/contract/example_prog.ml

1open Swig 
2open Example
3
4let _ = print_endline "This won't throw." 
5let _ = Printf.printf "Cos 1.0 is %f\n" (_cos '(1.0) as float)
6let _ = print_endline "This will throw."
7let _ = Printf.printf "Cos 5.0 is %f\n" (_cos '(5.0) as float)