Books can contain any number of children, and display one child at a time. The currently visible child is determined by the value of the model, which must be an integer.

book

<book> ( pages model -- book )

<empty-book> ( model -- book )