type t

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

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