GOTOが多いですが、もう1つ書きました。