unison/unison-src/transcripts/old-fold-right.md

```ucm:hide
scratch/main> builtins.merge
```

```unison
oldRight: (b ->{e} a ->{e} b) -> [a] ->{e} [b]
oldRight f la = bug "out"

pecan: '{} [Text]
pecan = 'let
  la = [1, 2, 3]
  f: Text -> Nat -> Text
  f = bug "out"

  oldRight f la
```
Test cases. 2022-02-12 01:33:41 +03:00			```ucm:hide
Replace '.' references with scratch/main 2024-06-12 01:22:09 +03:00			`scratch/main> builtins.merge`
Test cases. 2022-02-12 01:33:41 +03:00			```

			```unison
			`oldRight: (b ->{e} a ->{e} b) -> [a] ->{e} [b]`
			`oldRight f la = bug "out"`

			`pecan: '{} [Text]`
			`pecan = 'let`
			`la = [1, 2, 3]`
			`f: Text -> Nat -> Text`
			`f = bug "out"`

			`oldRight f la`
			```