Fixed.esign.at: def of emerging-ezjson@1.3.0.0
Import: import emerging-ezjson@1.3.0.0/src/fixed.bend as Fixed
Lines 60-68 of emerging-ezjson@1.3.0.0/src/fixed.bend: https://jend.leeeet.dev/read.txt?path=emerging-ezjson@1.3.0.0/src/fixed.bend&start_line=60&end_line=68

import Base

# an exponent's sign and digits: `-` makes it negative, `+` is dropped
def esign.at(minus: Bool, plus: Bool, ch: Char, tl: String) -> Bool & String:
  match minus plus:
    case True{} _:
      (True{}, tl)
    case False{} True{}:
      (False{}, tl)
    case False{} False{}:
      (False{}, SCon{ch, tl})

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Char
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Sigma
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String