(decimal printer)
 o
 1
 2
 3
 4
 5
 6
           o
  (check if 0)
v B-=-#01  <
 v   * D-(div/10)
v     B * <
     o
v> * 1    ^
 F -R0* B(next digit, %10)
*| # <-A vo(+48 = ascii)
 |    #84 <
 |       *-|
 F         +B * B
#<       \F----

         *-|
          P-
         B