[ immovable
    ]this[ share ]done[ ] is value     (   --> x )

  [ ]'[ replace ]         is to        ( x -->   )

  [ value 1 ]             is Q         (   --> x )
  [ value 0 ]             is R         (   --> x )
  [ value 1 ]             is T         (   --> x )
  [ value 1 ]             is K         (   --> x )
  [ value 3 ]             is N         (   --> x )
  [ value 3 ]             is L         (   --> x )

  [ value 0 ]             is chcount   (   --> x )

  [ echo
    chcount dup 79 =
    if cr
    1+ 80 mod to chcount ] is printch

  [ 4 Q *  R  + T - N T * < iff
      [ N printch
        R N T * - 10 *
        3 Q * R + 10 * T / N 10 * - to N to R
        Q 10 * to Q ]
    else
      [ 2 Q  * R + L *
        7 K * Q * 2 + R L * + T L * / to N to R
        K Q * to Q
        T L * to T
        L 2 + to L
        K 1+  to K ]
    chcount again ]