なんとか、サブルーチンを使わずに工夫してみました。