x := 100;
  t.tv_sec := (x div 1000);
  t.tv_nsec := (x mod 1000) * 1000 * 1000;
  fpnanosleep(@t, @t);