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