blob: 8a7ab475cf646e09af412be73c61a277bbe02782 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
open Random
let _ =
for i = 0 to 20 do
print_char ' '; print_int (int 1000);
done;
print_newline (); print_newline ();
for i = 0 to 20 do
print_char ' '; print_float (float 1000.);
done
let _ = exit 0
|