Scan.peek: def of yaml-for-bend@0.1.1.0
Import: import yaml-for-bend@0.1.1.0/scan.bend as Scan
Lines 140-150 of yaml-for-bend@0.1.1.0/scan.bend: https://jend.leeeet.dev/read.txt?path=yaml-for-bend@0.1.1.0/scan.bend&start_line=140&end_line=150

import Base

# The character +n+ places on, or NUL past the end.
def peek(s: String, n: Nat) -> Char:
  match s:
    case SNil{}:
      Chr{0}
    case SCon{c, t}:
      match n:
        case 0n:
          c
        case 1n+k:
          peek(t, k)

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=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String