+++++++++++ number of digits to output
	> #1
	+ initial number
	>>>> #5
	++++++++++++++++++++++++++++++++++++++++++++ (comma)
	> #6
	++++++++++++++++++++++++++++++++ (space)
	<<<<<< #0
	[
	  > #1
	  copy #1 to #7
	  [>>>>>>+>+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]
 
	  <
	  divide #7 by 10 (begins in #7)
	  [
	    >
	    ++++++++++  set the divisor #8
	    [
	      subtract from the dividend and divisor
	      -<-
	      if dividend reaches zero break out
	        copy dividend to #9
	        [>>+>+<<<-]>>>[<<<+>>>-]
	        set #10
	        +
	        if #9 clear #10
	        <[>[-]<[-]]
	        if #10 move remaining divisor to #11
	        >[<<[>>>+<<<-]>>[-]]
	      jump back to #8 (divisor possition)
	      <<
	    ]
	    if #11 is empty (no remainder) increment the quotient #12
	    >>> #11
	    copy to #13
	    [>>+>+<<<-]>>>[<<<+>>>-]
	    set #14
	    +
	    if #13 clear #14
	    <[>[-]<[-]]
	    if #14 increment quotient
	    >[<<+>>[-]]
	    <<<<<<< #7
	  ]
 
	  quotient is in #12 and remainder is in #11
	  >>>>> #12
	  if #12 output value plus offset to ascii 0
	  [++++++++++++++++++++++++++++++++++++++++++++++++.[-]]
	  subtract #11 from 10
	  ++++++++++  #12 is now 10
	  < #11
	  [->-<]
	  > #12
	  output #12 even if it's zero
	  ++++++++++++++++++++++++++++++++++++++++++++++++.[-]
	  <<<<<<<<<<< #1
 
	  check for final number
	  copy #0 to #3
	  <[>>>+>+<<<<-]>>>>[<<<<+>>>>-]
	  <- #3
	  if #3 output (comma) and (space)
	  [>>.>.<<<[-]]
	  << #1
 
	  [>>+>+<<<-]>>>[<<<+>>>-]<<[<+>-]>[<+>-]<<<-
	]
 

KysrKysrKysrKysgbnVtYmVyIG9mIGRpZ2l0cyB0byBvdXRwdXQKCT4gIzEKCSsgaW5pdGlhbCBudW1iZXIKCT4+Pj4gIzUKCSsrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrIChjb21tYSkKCT4gIzYKCSsrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrIChzcGFjZSkKCTw8PDw8PCAjMAoJWwoJICA+ICMxCgkgIGNvcHkgIzEgdG8gIzcKCSAgWz4+Pj4+Pis+Kzw8PDw8PDwtXT4+Pj4+Pj5bPDw8PDw8PCs+Pj4+Pj4+LV0KCgkgIDwKCSAgZGl2aWRlICM3IGJ5IDEwIChiZWdpbnMgaW4gIzcpCgkgIFsKCSAgICA+CgkgICAgKysrKysrKysrKyAgc2V0IHRoZSBkaXZpc29yICM4CgkgICAgWwoJICAgICAgc3VidHJhY3QgZnJvbSB0aGUgZGl2aWRlbmQgYW5kIGRpdmlzb3IKCSAgICAgIC08LQoJICAgICAgaWYgZGl2aWRlbmQgcmVhY2hlcyB6ZXJvIGJyZWFrIG91dAoJICAgICAgICBjb3B5IGRpdmlkZW5kIHRvICM5CgkgICAgICAgIFs+Pis+Kzw8PC1dPj4+Wzw8PCs+Pj4tXQoJICAgICAgICBzZXQgIzEwCgkgICAgICAgICsKCSAgICAgICAgaWYgIzkgY2xlYXIgIzEwCgkgICAgICAgIDxbPlstXTxbLV1dCgkgICAgICAgIGlmICMxMCBtb3ZlIHJlbWFpbmluZyBkaXZpc29yIHRvICMxMQoJICAgICAgICA+Wzw8Wz4+Pis8PDwtXT4+Wy1dXQoJICAgICAganVtcCBiYWNrIHRvICM4IChkaXZpc29yIHBvc3NpdGlvbikKCSAgICAgIDw8CgkgICAgXQoJICAgIGlmICMxMSBpcyBlbXB0eSAobm8gcmVtYWluZGVyKSBpbmNyZW1lbnQgdGhlIHF1b3RpZW50ICMxMgoJICAgID4+PiAjMTEKCSAgICBjb3B5IHRvICMxMwoJICAgIFs+Pis+Kzw8PC1dPj4+Wzw8PCs+Pj4tXQoJICAgIHNldCAjMTQKCSAgICArCgkgICAgaWYgIzEzIGNsZWFyICMxNAoJICAgIDxbPlstXTxbLV1dCgkgICAgaWYgIzE0IGluY3JlbWVudCBxdW90aWVudAoJICAgID5bPDwrPj5bLV1dCgkgICAgPDw8PDw8PCAjNwoJICBdCgoJICBxdW90aWVudCBpcyBpbiAjMTIgYW5kIHJlbWFpbmRlciBpcyBpbiAjMTEKCSAgPj4+Pj4gIzEyCgkgIGlmICMxMiBvdXRwdXQgdmFsdWUgcGx1cyBvZmZzZXQgdG8gYXNjaWkgMAoJICBbKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrLlstXV0KCSAgc3VidHJhY3QgIzExIGZyb20gMTAKCSAgKysrKysrKysrKyAgIzEyIGlzIG5vdyAxMAoJICA8ICMxMQoJICBbLT4tPF0KCSAgPiAjMTIKCSAgb3V0cHV0ICMxMiBldmVuIGlmIGl0J3MgemVybwoJICArKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysuWy1dCgkgIDw8PDw8PDw8PDw8ICMxCgoJICBjaGVjayBmb3IgZmluYWwgbnVtYmVyCgkgIGNvcHkgIzAgdG8gIzMKCSAgPFs+Pj4rPis8PDw8LV0+Pj4+Wzw8PDwrPj4+Pi1dCgkgIDwtICMzCgkgIGlmICMzIG91dHB1dCAoY29tbWEpIGFuZCAoc3BhY2UpCgkgIFs+Pi4+Ljw8PFstXV0KCSAgPDwgIzEKCgkgIFs+Pis+Kzw8PC1dPj4+Wzw8PCs+Pj4tXTw8WzwrPi1dPls8Kz4tXTw8PC0KCV0K