git.annexia.org
/
virt-df.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6ce121b7b0259ce56b3f29fead4c66e561d1aa33
[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)