From 469de83cdc448d0b33ff8faf737c78bd6676a2dc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?linus=20bj=C3=B6rnstam?= <linus.internet@fastmail.se>
Date: Thu, 2 Apr 2026 11:38:44 +0200
Subject: [PATCH] first commit

---
 Library.fs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Library.fs b/Library.fs
index c41e5e8..9ea1f66 100644
--- a/Library.fs
+++ b/Library.fs
@@ -21,9 +21,18 @@ module Rprint =
         let original = printer.Value
         
         // Bind om till StringBuilder
-        printer.Value <- fun s -> sb.AppendLine s  |> ignore
+        printer.Value <- fun s -> sb.Append s  |> ignore
         try
             f ()
             sb.ToString().TrimEnd()
         finally
             printer.Value <- original
+
+    let withOutputToStringBuilder (builder: System.Text.StringBuilder) f =
+        let original = printer.Value
+
+        printer.Value <- (fun s -> builder.Append(s) |> ignore)
+        try
+            f ()
+        finally
+            printer.Value <- original