let passe_temps = function () ->
 if sommeil then
  ignore ( Sys.command "sleep 0.001" )
 else
  ignore ( tan 2. )