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

  let Number/multiply = ./multiply.dhall nix

  let fromNatural = ./fromNatural.dhall nix

  let product
      : List Number → Number
      = λ(xs : List Number) →
          List/fold Number xs Number Number/multiply (fromNatural 1)

  in  product