1 files changed, 21 insertions, 1 deletions

diff --git a/05/util.b b/05/util.b
index 09f51f7..177c31e 100644
--- a/05/util.b
+++ b/05/util.b
@@ -267,11 +267,31 @@ function fputn
 	fputs(fd, s)
 	return
 
+function fputn_signed
+	argument fd
+	argument n
+	if n < 0 goto fputn_negative
+	
+	fputn(fd, n)
+	return
+	
+	:fputn_negative
+		fputc(fd, '-)
+		n = 0 - n
+		fputn(fd, n)
+		return
+		
 function putn
 	argument n
 	fputn(1, n)
 	return
-	
+
+function putn_signed
+	argument n
+	fputn_signed(1, n)
+	return
+
+
 function fputc
 	argument fd
 	argument c