let since_epoch = Tdl_date.since_epoch