to a :n
Make ( Word "A :n ) :n
( Pr :n Count Names )
a :n + 1
End
