From 7b3bb4e05a874391fefcd9eb92bfa59313e64c47 Mon Sep 17 00:00:00 2001
From: Alex Shelkovnykov <a@ashelkov.com>
Date: Tue, 5 Sep 2023 22:21:45 -0600
Subject: [PATCH] hoon: add +scag

---
 hoon/scaffolding/playpen.hoon | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/hoon/scaffolding/playpen.hoon b/hoon/scaffolding/playpen.hoon
index a805d8f..e4341a6 100644
--- a/hoon/scaffolding/playpen.hoon
+++ b/hoon/scaffolding/playpen.hoon
@@ -237,6 +237,13 @@
     +<+.b
   $(a t.a, b b(+<+ (b i.a +<+.b)))
 ::
+++  scag                                                ::  prefix
+  ~/  %scag
+  |*  [a=@ b=(list)]
+  |-  ^+  b
+  ?:  |(?=(~ b) =(0 a))  ~
+  [i.b $(b t.b, a (dec a))]
+::
 ++  slag                                                ::  suffix
   ~/  %slag
   |*  [a=@ b=(list)]