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