プログラムを短くしました。