let to_safe (x : unsafe t) : safe t option =   let open Option in   if is_some x.sequence      || is_some x.boot      || is_some x.crypto_random      || is_some x.inode      || is_some x.device      || is_some x.microsecond      || is_some x.pid      || is_some x.deliveries   then Some { sequence      = x.sequence             ; boot          = x.boot             ; crypto_random = x.crypto_random             ; inode         = x.inode             ; device        = x.device             ; microsecond   = x.microsecond             ; pid           = x.pid             ; deliveries    = x.deliveries }   else None