initial program for senko R.