1997-09-17 04:57:19 -07:00
|
|
|
let _ =
|
2012-07-27 04:31:21 -07:00
|
|
|
match Sys.word_size with
|
|
|
|
|
| 32 ->
|
|
|
|
|
print_int (1 * 1000000000); print_newline();
|
|
|
|
|
print_string "10000000000"; print_newline();
|
|
|
|
|
print_string "100000000000"; print_newline();
|
|
|
|
|
print_string "1000000000000"; print_newline();
|
|
|
|
|
print_string "10000000000000"; print_newline();
|
|
|
|
|
print_string "100000000000000"; print_newline();
|
|
|
|
|
print_string "1000000000000000"; print_newline();
|
|
|
|
|
print_string "10000000000000000"; print_newline();
|
|
|
|
|
print_string "100000000000000000"; print_newline();
|
|
|
|
|
print_string "1000000000000000000"; print_newline();
|
|
|
|
|
| 64 ->
|
|
|
|
|
print_int (1 * 1000000000); print_newline();
|
|
|
|
|
print_int (10 * 1000000000); print_newline();
|
|
|
|
|
print_int (100 * 1000000000); print_newline();
|
|
|
|
|
print_int (1000 * 1000000000); print_newline();
|
|
|
|
|
print_int (10000 * 1000000000); print_newline();
|
|
|
|
|
print_int (100000 * 1000000000); print_newline();
|
|
|
|
|
print_int (1000000 * 1000000000); print_newline();
|
|
|
|
|
print_int (10000000 * 1000000000); print_newline();
|
|
|
|
|
print_int (100000000 * 1000000000); print_newline();
|
|
|
|
|
print_int (1000000000 * 1000000000); print_newline()
|
|
|
|
|
| _ -> assert false
|
