-record(clock, {utc_now :: fun(() -> birl:time())}).