set theDate to current date
set theDay to the day of theDate
set theMonth to the month of theDate
set theWeekday to text 1 thru 3 of (the weekday of theDate as text)
set theTime to time string of theDate
set input to {theWeekday & " " & theDay & " " & theMonth & " " & theTime} as text