: LIMB ( LIMB-WIDTH -- )
  DUP 40 SWAP - 2 /
  0 DO 32 EMIT LOOP
  0 DO 42 EMIT LOOP
;

: SECTION ( LIMB-WIDTH [LIMB-WIDTH...] )
  DEPTH 0 DO
    LIMB
    13 EMIT
  LOOP
;


: BSECT ( STARTSIZE INCREMENT COUNT -- )
  1 DO 2DUP + SWAP LOOP DROP
;

: TREE ( -- )
  ( PAINT BY NUMBERS - KIND OF )
  147 EMIT 5 0 DO 13 EMIT LOOP
  1 53280 ! 11 53281 !
  30 EMIT
  7 -2 4 BSECT SECTION
  15 -4 4 BSECT SECTION
  23 -6 4 BSECT SECTION
  149 EMIT
  3 0 2 BSECT SECTION
  5 EMIT
;
