type t

type date = {Year : int, Month : int, Day : int}
val date_ord : ord date
val time : date -> time

val create : time -> transaction t
val render : t -> xbody
val value : t -> signal date

style calendar
style prev
style this
style next
style weekday
style curday
style otherday
style selday