もはやACLSだけでもその中に10行くらいの処理が詰め込まれているので１つのプログラm((