E-lisp language

Write a function that prints out the calendar for the current month. This function should take 2 parameters: the day of the week that the month starts from as an index (0 for Sunday, etc.) and the number of days in the month. For example, if you call the function

(calendar 2 30)

the result should be

S M T W T F S 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Print the initial of each day on the first line using the list of days defined at the previous exercise, the capitalized symbol-name as before, and the function substring to extract the first letter of the string. For example, the call:

(substring "Sunday" 0 1)

returns the string "S".

Show an example of evaluating this function.