Case.pascal: def of bend-lint-rules@0.2.0.0
Import: import bend-lint-rules@0.2.0.0/layout/case.bend as Case
Lines 127-137 of bend-lint-rules@0.2.0.0/layout/case.bend: https://jend.leeeet.dev/read.txt?path=bend-lint-rules@0.2.0.0/layout/case.bend&start_line=127&end_line=137

import Base

# `s` in PascalCase: `_` goes, and the character after it becomes a capital.
def pascal(s: String, up: Bool, acc: String) -> String:
  match s up:
    case SNil{} _:
      String.reverse(acc)
    case SCon{'_', rest} _:
      pascal(rest, True{}, acc)
    case SCon{c, rest} True{}:
      pascal(rest, False{}, SCon{Char.to_upper(c), acc})
    case SCon{c, rest} False{}:
      pascal(rest, False{}, SCon{c, acc})

Uses (8):
  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=Char.to_upper
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String.reverse
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Word.Con
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Word.Nil