あとは TPRINT の中をさらに分解するとかですかね？ VAR関数という特殊な関数を使えばさらに短くはできそうですが、正式な使い方か不明なので使っていいのかよくわかりません。