Evaluated proc gang {} {. [gnaa-acr [rpick $::adjectives(g)]] [gnaa-acr [rpick $::nouns(a)]] of [gnaa-acr [rpick $::adjectives(n)]] [gnaa-acr [regsub y$ [rpick $::nouns(g)] ie]]s}