DATAとFORを使えば超プログラム短縮で簡単です。