#let valeurfoo = function
   | Dam _  -> 20
   | Peti (10, c) -> 10
   | Peti (x, y) -> 
       if x = 9 & y = Coeur then 11 else 0
   | Jok  -> 1 ;;
valeurfoo : carte -> int = <fun>
#type unites = V of float | H  of float;;
Le type unites est défini.
#let distance_parcourue =
   function (V x, H y) -> x *. y ;;
Entrée interactive:
>  function (V x, H y) -> x *. y ;;
>  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Attention: ce filtrage n'est pas 
exhaustif.
distance_parcourue : unites * unites -> 
float = <fun>
#distance_parcourue (V 25.0, H 4.0);;
- : float = 100.0