let plusplus = fun (bord_bas:int) (bord_haut:int) (x:int) (y:int) ->
 let z = ref ( x + y ) in
  while !z > bord_haut do
   z := !z - 12 ;
  done ;
  while !z < bord_bas do
   z := !z + 12 ;
  done ;
  !z