let
power_of_two i =
assert
(i >= 0
L
&&
i < 63
L
);
1
L
lsl
(
Int64
.to_int i)