### Rules to create a 365-day calendar.
### This version puts 31 days in every month.

sp {initialize*calendar
    (state <s> ^superstate nil)
	-->                                       
    (<s> ^year <y> ^value 2003)}

sp {initialize*month*lengths
    (state <s> ^year <y>)
	-->
    (<y> ^month <m1> ^name january ^days 31)
    (<y> ^month <m2> ^name february ^days 28)
    (<y> ^month <m3> ^name march ^days 31)
    (<y> ^month <m4> ^name april ^days 30)
    (<y> ^month <m5> ^name may ^days 31)
    (<y> ^month <m6> ^name june ^days 30)
    (<y> ^month <m7> ^name july ^days 31)
    (<y> ^month <m8> ^name august ^days 31)
    (<y> ^month <m9> ^name september ^days 30)
    (<y> ^month <m10> ^name october ^days 31)
    (<y> ^month <m11> ^name november ^days 30)
    (<y> ^month <m12> ^name december ^days 31)}

sp {initialize*first*days
    (state <s> ^year <y>)
    (<y> ^month <m>)
	-->
    (<m> ^date 1)}

sp {initialize*remaining*days
    (state <s> ^year <y>)
    (<y> ^month <m> ^days <len>)
    (<m> ^date { <d> < <len> } )
	-->
    (<m> ^date ( + <d> 1 ))}