• Source
    1. *BF(267)*
    2. ->+>+>+>++>+>->>>>>,+[->++<],,,>
    3. C[
    4. ** *bcdeaF bcdeaF _ ?C
    5. -[->+<]<,
    6. ** *bcdeaF bcdeaF _ * C
    7. <<+[-
    8. * add 48 to a *
    9. <<++++++[-<<++++++++>>]
    10. * print a if F *
    11. <[+<.>]
    12. * move b and add b*2 to a *
    13. <<<<<[->>>>++>+<<<<<]
    14. <+]
    15. ** ! cdeAb cdeAb * C
    16. ++++++++++.>->>>>+++++
    17. <<<+[-
    18. >>>--->>++++++++++
    19. ** AbDR cdeA **
    20. <<[->>-[>+>]>[+[-<+>]>>>>>>+<<<<]<<<<<]
    21. * set F to D move R to A *
    22. >>,>[-<<<+>>>]
    23. >>>+]
    24. * clear the last F if the last b is zero *
    25. +<<<<<[>>]>,[+>-]
    26. * carry handling *
    27. >>>-----[<[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>>]
    28. <]