Stack.peek: def of bend-collections@1.0.0.0
Import: import bend-collections@1.0.0.0/src/containers/stack.bend as Stack
Lines 27-32 of bend-collections@1.0.0.0/src/containers/stack.bend: https://jend.leeeet.dev/read.txt?path=bend-collections@1.0.0.0/src/containers/stack.bend&start_line=27&end_line=32

import Base
import bend-collections@1.0.0.0/src/containers/types/stack.bend as E

def peek(~T: Data, s: Stack<T>) -> Stack<T> & Result<&2, &2, E.Error, T>:
  match s:
    case ST{Nil{}, n}:
      (ST{Nil{}, n}, Fail{E.EmptyStack{}})
    case ST{Con{+x, xs}, n}:
      (ST{Con{x, xs}, n}, Done{x})

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=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Result
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Sigma
  https://jend.leeeet.dev/definition.txt?path=bend-collections@1.0.0.0/src/containers/stack.bend&name=Stack
  https://jend.leeeet.dev/definition.txt?path=bend-collections@1.0.0.0/src/containers/types/stack.bend&name=Error