変数に対して同じクラスのインスタンスをセットする必要が出てきたとき、下のように泥臭いコードになってしまいます:

a1 := TestClass new.
a2 := TestClass new.
a3 := TestClass new.
a4 := TestClass new.

このように書いてしまうと、同じクラスのインスタンスを代入する行がずっと続くことになり、非常に汚ないように感じてしまいます。もし、このように変数に対して、同じクラスのインスタンスをそれぞれに代入する方法があれば、教えてください。