(examples-for relative-months
  ("finds dates around a given date"
   (joinstr " - " (relative-months (date 2000 1 1) -32 -2 0 2 24))
   "1997-05-01 - 1999-11-01 - 2000-01-01 - 2000-03-01 - 2002-01-01"))