type t

val create : transaction t
val render : t -> xbody
val value : t -> signal {Year : int, Month : int, Day : int}

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