>>>> 


,+[->,+]

<[-<<++++>>]
<--<---
[[<]>[->]<<]>>


 >>
 >>> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> tmp
 >>> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> tmp
 >>> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> tmp
 
 >>> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> 9^3
 >>> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> 9^2
 >>> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> 9^1
 >>> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> +>+>+>+>+> 9^0
 
 <[[<]<<<]<
 <<
+
>
[-[-[[-]
  
]<[
  case K : 3
  -
  <<<
  [
    
    [<]>
    
    [[-<+>]>[>]>+<<[<]> ]
    >-[->+>+<<]
    >>-[-<<+>>]>+<<<
    [->[->+>
      >+<
      [
        ->-<
      ]
      >
      [
        ->> [>]>>> [>]<
        #region Multi_Incriment 
        >+[+++++++++<[->->+<<]+>[[-]<->]<]>>[+[-<<+>>]]>[[[-]<<+>>]>]<<<
        #endregion
        [<]<<< [<]<
        
        <+>
      ]
      <
      <<
    ]>[-<+>]<<]
    >>>[-]<<<
    <<<[<]>
    -
    -[
      [>]>>>>>>>>[>]>>> [>]>>> [>]<
      #region Multi_Incriment 
      >+[+++++++++<[->->+<<]+>[[-]<->]<]>>[+[-<<+>>]]>[[[-]<<+>>]>]<<<
      #endregion
      [<]<<<[<]<<<[<]<<<<
      <<<<[<]>
      -
    ]
    
    >[>]>>>>>>>> [>]>>> [>]>>> [>]<
    
    
    
    #region Swap 0
    //start  ___{ a }___{ b*}___
    //resilt ___{ b }___{ a*}___
    //notice 桁数が同じである必要があります
    [[->>+<<]<]
    >>>
    [
      -<<+>>
      [<<[<]<<<[<]<+>>[>]>>>[>]>-]
      <<[<]<<<[<]>
      -<<+>>
      [[>]>>>[>]<+[<]<<<[<]>-]
      >[>]>>>[>]>>
    ]
    <<<[<]<<<<<[[->>+<<]<]>>>[>]>>>[>]<
    #endregion
    
    [<]<<<
    
    #region 掛け算を行います
    #region Notice
    //メモリ: ___{a*}___{b}___{積(初期済)}___
    //初期位置は、aの末尾、終了位置は 積の末尾
    //桁には余裕を持ってください。(上位2or3桁ぐらいの空きが必要)
    #endregion
    
    #region 正味の掛け算部分
    [<]>[[-<<+>>]>]<<<
    [
      -[
        ->>+
        [>]>>>[>]<
        
        #region 加算
        [<]>
        [ -[+[>] <<->>]<<+>>>  ]<<[>]<
        [
          ->>+[>]>[>]<[->+<]>[<]<[<]<[<]<
          [->>+[>]>[>]>+<<[<]<[<]<]<
        ]
        <<[[->>+<<]<]>>>[>]
        >>[[-<<+>>]>]
        >[>]>
        [ 
          [-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[ 
            <<+>>[-<+>]<----------> 
          ]]]]]]]]]]]>
        ]
        <<[<]
        
        #endregion    
        
        <<<[<]<<<[<]<
        
      ]
      >>+
      [>]>>>[>]>>>[>]<
      [->>+<<]
      <[<]<<<[<]<<<[<]<<
    ]
    >>>[>]>>>[>]>>>[>]
    >>[[-<<+>>]>]<<<
    #endregion
    #region 積の正規化
    [  // 下位に2Byte上位に1byteの0メモリが必要です
      [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
        <+>[->+<]>----------< 
      ]]]]]]]]]]]<
    ]
    >>[[-<+>]>]<<
    #endregion
    #endregion
    
    #region Multi_AddToNext 0
    //start  ___{ a*}___{ b*}___
    //resilt ___{ a*}___{res}___
    //notice b の桁が a 以上である必要があります
    [
      -
      [->>+[>]>[>]<+[<]<[<]< ]
      >>+[>]>[>]<
      [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
        [->+<]>----------< <[+>]>[<]
      ]]]]]]]]]]]
      <[<]<[<]<<
    ]
    >>>[[-<<+>>]>]>[>]<
    [
      [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
        [->+<]>----------< <[+>]>[<]
      ]]]]]]]]]]]
      <
    ]
    >>[[-<+>]>]<<[<]<<<
    #endregion
    [[-]+<]<<<[[-]+<]<<< [<]<<<[<]<<<
    <
    
    --[
      >>>>>[>]>>> [>]>>> [>]<
      #region Multi_Incriment 
      >+[+++++++++<[->->+<<]+>[[-]<->]<]>>[+[-<<+>>]]>[[[-]<<+>>]>]<<<
      #endregion
      [<]<<<[<]<<<[<]<<<<
      -
    ]
    
    >>>>>[>]>>> [>]>>> [>]<
    
    
    
    #region Swap 0
    //start  ___{ a }___{ b*}___
    //resilt ___{ b }___{ a*}___
    //notice 桁数が同じである必要があります
    [[->>+<<]<]
    >>>
    [
      -<<+>>
      [<<[<]<<<[<]<+>>[>]>>>[>]>-]
      <<[<]<<<[<]>
      -<<+>>
      [[>]>>>[>]<+[<]<<<[<]>-]
      >[>]>>>[>]>>
    ]
    <<<[<]<<<<<[[->>+<<]<]>>>[>]>>>[>]<
    #endregion
    
    [<]<<<
    
    #region 掛け算を行います
    #region Notice
    //メモリ: ___{a*}___{b}___{積(初期済)}___
    //初期位置は、aの末尾、終了位置は 積の末尾
    //桁には余裕を持ってください。(上位2or3桁ぐらいの空きが必要)
    #endregion
    
    #region 正味の掛け算部分
    [<]>[[-<<+>>]>]<<<
    [
      -[
        ->>+
        [>]>>>[>]<
        
        #region 加算
        [<]>
        [ -[+[>] <<->>]<<+>>>  ]<<[>]<
        [
          ->>+[>]>[>]<[->+<]>[<]<[<]<[<]<
          [->>+[>]>[>]>+<<[<]<[<]<]<
        ]
        <<[[->>+<<]<]>>>[>]
        >>[[-<<+>>]>]
        >[>]>
        [ 
          [-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[-<+>[ 
            <<+>>[-<+>]<----------> 
          ]]]]]]]]]]]>
        ]
        <<[<]
        
        #endregion    
        
        <<<[<]<<<[<]<
        
      ]
      >>+
      [>]>>>[>]>>>[>]<
      [->>+<<]
      <[<]<<<[<]<<<[<]<<
    ]
    >>>[>]>>>[>]>>>[>]
    >>[[-<<+>>]>]<<<
    #endregion
    #region 積の正規化
    [  // 下位に2Byte上位に1byteの0メモリが必要です
      [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
        <+>[->+<]>----------< 
      ]]]]]]]]]]]<
    ]
    >>[[-<+>]>]<<
    #endregion
    #endregion
    
    #region Div By 3
    
    [<]>
    [
      -
      [
        [-<+>[-<+>[-<--<+>>[-<+>[-<+>[-<--<+>>[-<+>[-<+>[-<--<+>>
          
        [-<+>[-<+>[-<--<+>>[-<+>[-<+>[-<--<+>>[-<+>[-<+>[-<--<+>>
          
        [-<+>[-<+>[-<--<+>>[-<+>[-<+>[-<--<+>>[-<+>[-<+>[-<--<+>>
          
        [-<+>[-<+>[-<--<+>>[-<+>[-<+>[-<--<+>>[-<+>[-<+>[-<--<+>>
          
        ]]]]]]]]]
        ]]]]]]]]]
        ]]]]]]]]]
        ]]]]]]]]]
        <[->>++++++++++<<]>
      ]
      <<+>>>
    ]
    <<<[[->>+<<]<]
    >>>[>]<
    
    #endregion  
    
    
    [<]<<<[<]<<<[<]<<<[<]<<< <<<<<
    
    [<]>
    [-[+[>]]>]<<[[->+<]<]<
  ]
  >[-]>[-]>[>]
]+>
]<[
  case K : 2
  -
  <<
  [
    [<]>
    
    [[-<+>]>[>]>+<<[<]> ]
    >-[->+>+<<]
    >>-[-<<+>>]>+<<<
    [->[->+>
      >+<
      [
        ->-<
      ]
      >
      [
        ->> [>]>>> [>]>>> [>]>>> [>]>>> [>]<
        #region Multi_Incriment 
        >+[+++++++++<[->->+<<]+>[[-]<->]<]>>[+[-<<+>>]]>[[[-]<<+>>]>]<<<
        #endregion
        [<]<<< [<]<<< [<]<<< [<]<<< [<]<
        <+>
      ]
      <
      <<
    ]>[-<+>]<<]
    >>>[-]<<<
    <<<[<]>
    - -[ [>]>>+<<<[<]>- ]
    >[>]>>
      [->[->+>
      >
      >
      
        >> [>]>>> [>]>>> [>]>>> [>]>>> [>]>>> [>]<
        #region Multi_Incriment 
        >+[+++++++++<[->->+<<]+>[[-]<->]<]>>[+[-<<+>>]]>[[[-]<<+>>]>]<<<
        #endregion
        [<]<<< [<]<<< [<]<<< [<]<<< [<]<<< [<]<
      
      <
      <<
    ]>[-<+>]<<]
    >[-]<<<<[<]>
    [-[+[>]]>]<<[[->+<]<]
  ]
  >[-]>[>]
]+>
]<[
  #region case K : 1
  - 
  <
  [
    #region ne 0
    [<]>
    -[
      [>]>>>>>>>
      [[>]>>>]<<<<
      #region Multi_Incriment 
      >+[+++++++++<[->->+<<]+>[[-]<->]<]>>[+[-<<+>>]]>[[[-]<<+>>]>]<<<
      #endregion
      [[<]<<<]
      <<<<[<]>-
    ]
    >
    [
      [-]>[>]
      [>]>>>>>>>
      [>]>>> [>]>>> [>]>>> [>]>>> [>]>>>  [>]<
      
      #region Multi_Incriment 
      >+[+++++++++<[->->+<<]+>[[-]<->]<]>>[+[-<<+>>]]>[[[-]<<+>>]>]<<<
      #endregion
      [<]<<< [<]<<< [<]<<< [<]<<< [<]<<< [<]<<< 
      <<<<[<]>
    ]
    <
    #endregion
  ]
  >
  #endregion
]>





>>>>>> [>]>>> [>]>>> [>]>>>[>]>>> [>]<


#region  x 9

[->>>+<<<]
<[<]<<< [<]>[-]>[>]<
#region Multi_AddToNext 0
//start  ___{ a*}___{ b*}___
//resilt ___{ a*}___{res}___
//notice b の桁が a 以上である必要があります
[
  -
  [->>+[>]>[>]<+[<]<[<]< ]
  >>+[>]>[>]<
  [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
    [->+<]>----------< <[+>]>[<]
  ]]]]]]]]]]]
  <[<]<[<]<<
]
>>>[[-<<+>>]>]>[>]<
[
  [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
    [->+<]>----------< <[+>]>[<]
  ]]]]]]]]]]]
  <
]
>>[[-<+>]>]<<[<]<<<
#endregion
>>>> [>]
>>>[-<<<+>>>]<<<
[<]<<<[<]+[>]<

#region Multi_SubFromNext 0
//start  ___{ a*}___{ b }___
//resilt ___{ a*}___{res}___
//notice b の桁が a 以上である必要があります。
//       アンダーフロー処理済み
> >>><++<<<
[<]>[[-<<+>>]>]
<<<
[
  -[ ->>+[>]>>>[>]< [-[<]] <[>++++++++++< [-[<]]< ]><<<[<]< ]
  >>+[>]>>>[>]<
  [->+<]<[<]<<<[<]<<
]
>>>[>]>>><[-]>[>]>[[-<+>]>]<<
[<]<<<
#endregion

#endregion  

>>>>[>]>>> [>]<


#region  x 9

[->>>+<<<]
<[<]<<< [<]>[-]>[>]<
#region Multi_AddToNext 0
//start  ___{ a*}___{ b*}___
//resilt ___{ a*}___{res}___
//notice b の桁が a 以上である必要があります
[
  -
  [->>+[>]>[>]<+[<]<[<]< ]
  >>+[>]>[>]<
  [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
    [->+<]>----------< <[+>]>[<]
  ]]]]]]]]]]]
  <[<]<[<]<<
]
>>>[[-<<+>>]>]>[>]<
[
  [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
    [->+<]>----------< <[+>]>[<]
  ]]]]]]]]]]]
  <
]
>>[[-<+>]>]<<[<]<<<
#endregion
>>>> [>]
>>>[-<<<+>>>]<<<
[<]<<<[<]+[>]<

#region Multi_SubFromNext 0
//start  ___{ a*}___{ b }___
//resilt ___{ a*}___{res}___
//notice b の桁が a 以上である必要があります。
//       アンダーフロー処理済み
> >>><++<<<
[<]>[[-<<+>>]>]
<<<
[
  -[ ->>+[>]>>>[>]< [-[<]] <[>++++++++++< [-[<]]< ]><<<[<]< ]
  >>+[>]>>>[>]<
  [->+<]<[<]<<<[<]<<
]
>>>[>]>>><[-]>[>]>[[-<+>]>]<<
[<]<<<
#endregion

#endregion  

>>>>[>]>>> [>]<

#region  x 9

[->>>+<<<]
<[<]<<< [<]>[-]>[>]<
#region Multi_AddToNext 0
//start  ___{ a*}___{ b*}___
//resilt ___{ a*}___{res}___
//notice b の桁が a 以上である必要があります
[
  -
  [->>+[>]>[>]<+[<]<[<]< ]
  >>+[>]>[>]<
  [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
    [->+<]>----------< <[+>]>[<]
  ]]]]]]]]]]]
  <[<]<[<]<<
]
>>>[[-<<+>>]>]>[>]<
[
  [->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[->+<[ 
    [->+<]>----------< <[+>]>[<]
  ]]]]]]]]]]]
  <
]
>>[[-<+>]>]<<[<]<<<
#endregion
>>>> [>]
>>>[-<<<+>>>]<<<
[<]<<<[<]+[>]<

#region Multi_SubFromNext 0
//start  ___{ a*}___{ b }___
//resilt ___{ a*}___{res}___
//notice b の桁が a 以上である必要があります。
//       アンダーフロー処理済み
> >>><++<<<
[<]>[[-<<+>>]>]
<<<
[
  -[ ->>+[>]>>>[>]< [-[<]] <[>++++++++++< [-[<]]< ]><<<[<]< ]
  >>+[>]>>>[>]<
  [->+<]<[<]<<<[<]<<
]
>>>[>]>>><[-]>[>]>[[-<+>]>]<<
[<]<<<
#endregion

#endregion  


>>>>[>]<


#region Multi_WriteNumber
+[<]>[-[+[>]]<+>>] ++++++[-<-------->]<+<--> [[<]>[+>]<]<[<]>[.>]
>++++++[-<++++++++>]<- [[<]>[->]<]<[<]<[[->+<]<]>>[>]<　//数値復帰部
#endregion
