1    module thread
2    
3    let usleep (microseconds : uint) : int
4    let sched_yield () : int
5    
6    def sleep (duration : Duration) =
7        let microseconds = duration.to_microseconds |> as<uint>
8        usleep microseconds |> ignore
9    
10   def sleep (milliseconds : u32) =
11       let microseconds = milliseconds as uint * 1000
12       usleep microseconds |> ignore
13   
14   def yield =
15       sched_yield |> ignore
16