Vocabulary
calendar

Inputs
timestampan object


Outputs
timestamp'an object


Definition

: friday>= ( timestamp -- timestamp' ) [ friday ] day>= ;