Arrow model values are computed by applying a quotation to the value of another model.
arrow

<arrow> ( model quot -- arrow )