λ(nix : ../NixPrelude.dhall) →
  let fold = ./fold.dhall nix

  let length
      : ∀(a : Type) → Optional a → Natural
      = λ(a : Type) → λ(xs : Optional a) → fold a xs Natural (λ(_ : a) → 1) 0

  in  length