14 lines
348 B
OCaml
14 lines
348 B
OCaml
(* Marshal some interesting big integers to the given file *)
|
|
|
|
let _ =
|
|
let file = Sys.argv.(1) in
|
|
let oc = open_out_bin file in
|
|
for nbits = 16 to 128 do
|
|
let x = Z.shift_left Z.one nbits in
|
|
output_value oc (Z.pred (Z.neg x));
|
|
output_value oc (Z.neg x);
|
|
output_value oc (Z.pred x);
|
|
output_value oc x
|
|
done;
|
|
close_out oc
|
|
|