/usr/share/doc/cppo/examples/french.ml is in cppo 0.9.3-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | #define soit let
#define fonction function
#define fon fun
#define dans in
#define si if
#define alors then
#define sinon else
#define Liste List
#define Affichef Printf
#define affichef printf
#define separation split
#define tri sort
soit rec separation x = fonction
y :: l ->
soit l1, l2 = separation x l dans
si y < x alors (y :: l1), l2
sinon l1, (y :: l2)
| [] ->
[], []
soit rec tri = fonction
x :: l ->
soit l1, l2 = separation x l dans
tri l1 @ [x] @ tri l2
| [] ->
[]
soit () =
soit l = tri [ 5; 3; 7; 1; 7; 4; 99; 22 ] dans
Liste.iter (fon i -> Affichef.affichef "%i " i) l;
Affichef.affichef "\n"
|