+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
[->+>+<<]>>[<<+>>-]>                                        ;Copy data at 0 to 0 and 1; reserve buff space at 2
++++++++++[>++++++++++[>++++++++++[>++++++++++[>++++++++++<-]<-]<-]<-]>>>>[<<<<+>>>>-]<<<<
[->+>+<<]>>[<<+>>-]>
++++++
>>>+>+>+>+>+>+ >>
<<<<<<<<<<                                                  ;point to 8
[
    <<<<<                                                   ;start main loop
    [
        >>>>>>>>>>>>>>[-]>[-]>[-] <<<<<<<<<<<<<             ;clear {ref} & div buff & base buff & point to v2{2}
        [-<<<->>> >>>>>>>>>>>+<<<<<<<<<<<]                  ;decrease v2{2} then decrease v1{2} then increase div buff and point to v2{2} until v2{2} is empty
        >>>>>>>>>>>>>+<<<<<<<<<<<<<<                        ;increase base buff by 1 point to v2{1}
        [->+>+<<]>>[<<+>>-]>>>>>>>>>>>                      ;copy v2 and point to div buff
        [-<<<<<<<<<<<<->>>>>>>>>>>>]<<<<<<<<<<<<            ;dec divbuff & v2{2} until div buff is empty then point to v2{2}
        [>>>>>>>>>>>>>[-]<<<<<<<<<<<<<-]<                   ;if v2{2} != 0 then set base buff to 0 and v2 to 0 point to v2{1}
        [->+>+<<]>>[<<+>>-]>>>>>>>>>>>>                     ;copy v2 and point to base buff
        [->+<]<<<<<<<<<<<<<<<<                              ;if fill base buff real with base buff and point to v1{2}
    ]
    >>>>>>>>>>>>>>>>>[->+>+<<]>>[<<+>>-]<<                  ;copy base buff real point back to base buff real
    [-<<<<[<]<+>>[>]>>>]<<<<[<]>[-]>[>]                     ;clever byte fill back to ref
    >>>>[<<<<<<<<<<<<<<<<[->+>+<<]>>[<<+>>-]>>>>>>>>>>>>>>-<<<<<<<<<<<<<<<[->>>>>>>>>>>>>>>>+<<<<<<<<<<<<<<<<]>>>>>>>>>>>>>>>] ;fill v1 negator
    >[-<<<<<<<<<<<<<<<<<<<->>>>>>>>>>>>>>>>>>>]             ;negate v1
    <<<<<<<<<<<<<<<<<<<[->+>+<<]>>[<<+>>-]>                 ;copy v1 point to v2{1}
    >[-]<[>>++++++++++[-<<->>]<+<]>[->+<<+>]>[-<+>]>        ;divide v2 by 10 and recopy v2 point to 8
-]                                                          ;Decrease 8 and reloop
>.>.>.>.>.>.                                                ;print r1 to r8

v1,v1,buff,v2,v2,buff,8,r1,r2,r3,r4,r5,r6,r7,r8,{ref},div buff,base buff,base buff real,base buff real cpy, v1 negator