*BF(267)*
->+>+>+>++>+>->>>>>,+[->++<],,,>
C[
** *bcdeaF bcdeaF _ ?C
-[->+<]<,
** *bcdeaF bcdeaF _ * C
<<+[-
* add 48 to a *
<<++++++[-<<++++++++>>]
* print a if F *
<[+<.>]
* move b and add b*2 to a *
<<<<<[->>>>++>+<<<<<]
<+]
** ! cdeAb cdeAb * C
++++++++++.>->>>>+++++
<<<+[-
>>>--->>++++++++++
** AbDR cdeA **
<<[->>-[>+>]>[+[-<+>]>>>>>>+<<<<]<<<<<]
* set F to D move R to A *
>>,>[-<<<+>>>]
>>>+]
* clear the last F if the last b is zero *
+<<<<<[>>]>,[+>-]
* carry handling *
>>>-----[<[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>>]
<]