Vocabulary
english

Inputs and outputs

classes	a sequence of words
markup	a sequence of markup elements

Word description
Used to implement $or-markup-example and demonstrate comma-list.

Examples
See the examples in $or-markup-example.

See also
a/an, ?plural-article, a10n, comma-list, $or-markup-example

Definition

USING: accessors arrays help.markup kernel sequences words ;

IN: english

: or-markup-example ( classes -- markup )
[
dup word?
[ [ name>> ] keep \ $link ] [ dup \ $snippet ] if
swap 2array [ a/an " " append ] dip 2array
] map "or" comma-list ;