Write a program or a script that returns the last Sundays of each month of a given year. The year may be given through any simple input method in your language (command line, std in, etc).

Example of an expected output:

./last_sundays 2013
2013-01-27
2013-02-24
2013-03-31
2013-04-28
2013-05-26
2013-06-30
2013-07-28
2013-08-25
2013-09-29
2013-10-27
2013-11-24
2013-12-29


Related tasks
 Day of the week
 Five weekends
 Last Friday of each month


program last_sundays
	args year
	clear
	qui set obs 12
	gen day=dofm(mofd(mdy(_n,1,`year'))+1)-1
	qui replace day=day-mod(dow(day),7)
	format %td day
	list, noobs noheader sep(6)
end
 
last_sundays 2013
 
  +-----------+
  | 27jan2013 |
  | 24feb2013 |
  | 31mar2013 |
  | 28apr2013 |
  | 26may2013 |
  | 30jun2013 |
  |-----------|
  | 28jul2013 |
  | 25aug2013 |
  | 29sep2013 |
  | 27oct2013 |
  | 24nov2013 |
  | 29dec2013 |
  +-----------+