Fixed.down: def of emerging-ezjson@1.4.0.0
Import: import emerging-ezjson@1.4.0.0/src/fixed.bend as Fixed
Lines 117-126 of emerging-ezjson@1.4.0.0/src/fixed.bend: https://jend.leeeet.dev/read.txt?path=emerging-ezjson@1.4.0.0/src/fixed.bend&start_line=117&end_line=126

import Base

# the point one place left: the last integer digit, or a 0 before the
# first, moves after the point
def down(dec: Dec) -> Dec:
  match dec:
    case Dec{left, right}:
      match left:
        case SNil{}:
          Dec{"", SCon{'0', right}}
        case SCon{hd, tl}:
          Dec{tl, SCon{hd, right}}

Uses (3):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Char
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=emerging-ezjson@1.4.0.0/src/fixed.bend&name=Dec