| (* | |
| * Print the 10th fibonacci number | |
| *) | |
| //// A line comment | |
| "A string";; | |
| (0, 125, 0xa0, -1.0, 1e6, 1.2e-3);; // number literals | |
| #if fibby | |
| let | |
| rec fib = function (0, a, _) -> a | |
| | (n, a, b) -> fib(n - 1, a + b, a) | |
| in | |
| print_int(fib(10, 1, 1));; | |
| #endif | |
| let zed = 'z' | |
| let f' x' = x' + 1 |