// rhythm-grounding.el — Mondays at 9am, grounded against EarthCalendar(NYC),
// from a Wednesday timestamp returns the next Monday at 9am EDT.
// Wednesday 2026-05-06 00:00 UTC (1778025600) → next Monday 9am EDT
//   = 2026-05-11 09:00 EDT = 2026-05-11 13:00 UTC = 1778504400.

fn run_test() -> Int {
    let z: Zone = zone("America/New_York")
    let cal: Calendar = earth_calendar(z)
    let r: Rhythm = rhythm_weekly_at(1, 9, 0)
    let after: Instant = unix_seconds(1778025600)
    let next: Instant = rhythm_next_after(r, after, cal)
    let next_secs: Int = instant_to_unix_seconds(next)
    return next_secs
}

fn main() -> Void {
    println(int_to_str(run_test()))
}
