: time ( a -- n )
  abort" argument not supported"
  utime #1000000 um/mod nip ;