Removed warning about unused return value.
[virt-df.git] / lib / test_int63.ml
1 open Printf
2 open Int63.Operators
3
4 let () =
5   let a = ~^3 *^ ~^500 in
6   let b = a <<^ 3 in
7   printf "result = %s\n" (Int63.to_string b)