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


local(
	year	= integer(web_request -> param('year') || 2013),
	date	= date(#year + '-1-1'),
	lastsu	= array,
	lastday
)
 
with month in generateseries(1,12) do {
	#date -> day = 1
	#date -> month = #month
	#lastday = #date -> month(-days)
	#date -> day = #lastday
	loop(7)	=> {
		if(#date -> dayofweek == 1) => {
			#lastsu -> insert(#date -> format(`dd MMMM`))
			loop_abort
		}
		#date -> day--
	}
}
#lastsu -> join('<br />')