let
wait s =
faire0 (
"sleep "
^(string_of_float s))