Add transcripts for some already-fixed issues

This fixes #1327 (which was actually fixed by #5056 or #5061) and #3977
was already closed, but without the transcript to avoid regression.

unison-src/transcripts/fix1327.md

@@ -0,0 +1,11 @@
+```unison
+foo = 4
+
+bar = 5
+```
+
+```ucm
+scratch/main> add
+scratch/main> ls
+scratch/main> alias.many 1-2 .ns1_nohistory
+```

unison-src/transcripts/fix1327.output.md

@@ -0,0 +1,46 @@
+``` unison
+foo = 4
+
+bar = 5
+```
+
+``` ucm
+
+  Loading changes detected in scratch.u.
+
+  I found and typechecked these definitions in scratch.u. If you
+  do an `add` or `update`, here's how your codebase would
+  change:
+  
+    ⍟ These new definitions are ok to `add`:
+    
+      bar : ##Nat
+      foo : ##Nat
+
+```
+``` ucm
+scratch/main> add
+
+  ⍟ I've added these definitions:
+  
+    bar : ##Nat
+    foo : ##Nat
+
+scratch/main> ls
+
+  1. bar (##Nat)
+  2. foo (##Nat)
+
+scratch/main> alias.many 1-2 .ns1_nohistory
+
+  Here's what changed in .ns1_nohistory :
+  
+  Added definitions:
+  
+    1. bar : ##Nat
+    2. foo : ##Nat
+  
+  Tip: You can use `undo` or use a hash from `reflog` to undo
+       this change.
+
+```

unison-src/transcripts/fix3977.md

@@ -0,0 +1,15 @@
+```ucm:hide
+scratch/main> builtins.merge
+```
+
+```unison:hide
+failure msg context = Failure (typeLink Unit) msg (Any context)
+
+foo = Left (failure ("a loooooooooooooooooooooooooooooooooong" ++ "message with concatenation") ())
+```
+
+```ucm
+scratch/main> add
+scratch/main> edit foo
+scratch/main> load scratch.u
+```

unison-src/transcripts/fix3977.output.md

@@ -0,0 +1,42 @@
+``` unison
+failure msg context = Failure (typeLink Unit) msg (Any context)
+
+foo = Left (failure ("a loooooooooooooooooooooooooooooooooong" ++ "message with concatenation") ())
+```
+
+``` ucm
+scratch/main> add
+
+  ⍟ I've added these definitions:
+  
+    failure : Text -> context -> Failure
+    foo     : Either Failure b
+
+scratch/main> edit foo
+
+  ☝️
+  
+  I added 1 definitions to the top of scratch.u
+  
+  You can edit them there, then run `update` to replace the
+  definitions currently in this namespace.
+
+scratch/main> load scratch.u
+
+  Loading changes detected in scratch.u.
+
+  I found and typechecked the definitions in scratch.u. This
+  file has been previously added to the codebase.
+
+```
+``` unison:added-by-ucm scratch.u
+foo : Either Failure b
+foo =
+  use Text ++
+  Left
+    (failure
+      ("a loooooooooooooooooooooooooooooooooong"
+        ++ "message with concatenation")
+      ())
+```
+