Plan 9 from Bell Labs’s /usr/web/sources/contrib/quanstro/timezone/gendstpairsnz
#!/bin/rc echo 2007 `{>[2=]dateof $year mar sun 3} `{>[2=]dateof $year sep sun last} for(year in `{seq 2008 2037}) echo $year `{>[2=]dateof $year apr sun 1} `{>[2=]dateof $year sep sun last}