a/an ( str -- str )


Vocabulary
help.markup

Inputs
stran object


Outputs
stran object


Definition


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