https://scratch.mit.edu/discuss/topic/133890/?page=3#post-1217976 のsuketaさんの回答のリストの中身をちょっと変えて、スクリプトを短くしてみました。
