Tpl.collect_tpl_head: def of bend-prot@0.1.0.0
Import: import bend-prot@0.1.0.0/tpl.bend as Tpl
Lines 85-94 of bend-prot@0.1.0.0/tpl.bend: https://jend.leeeet.dev/read.txt?path=bend-prot@0.1.0.0/tpl.bend&start_line=85&end_line=94

import Base

def collect_tpl_head(m: Maybe<&2, TplAtom>, rest: List<&2, TplAtom> & Nat) -> List<&2, TplAtom> & Nat:
  match m:
    case None{}:
      match rest:
        case (as, n):
          (as, 1n+n)
    case Some{x}:
      match rest:
        case (as, n):
          (x <> as, n)

Uses (6):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Maybe
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  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=bend-prot@0.1.0.0/tpl.bend&name=TplAtom