a/an ( str -- str )

Vocabulary

help.markup

Inputs

str

an object

Outputs

str

an object

Definition

USING: english kernel sequences ;

IN: help.markup

: a/an ( str -- str )
    [ first ] [ length ] bi 1 = "afhilmnorsx" vowels ? member?
    "an" "a" ? ;