プログラムは一応貼っておきます