From b179dd09b1349b8a43a8ca888f317e98601d8c23 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 7 Apr 2021 14:29:21 -0400
Subject: A few basic system values in bqn.bqn

---
 bqn.bqn | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/bqn.bqn b/bqn.bqn
index 25694d4e..2ab723d9 100644
--- a/bqn.bqn
+++ b/bqn.bqn
@@ -16,4 +16,11 @@ rt‿SetPrims ← •COMP provide⊸(⊣»«)⌾(1⊸⊑) DCompile ref
 PrimInd ← rt⊸⊐⌾<
 Decompose ← ((≠glyphs)>PrimInd)◶⟨•Decompose,0⊸≍⟩
 SetPrims ⟨ Decompose, PrimInd ⟩
-rt⊸DRun
+
+sys ← {𝕩⊏˜𝕨⊸⊐}˝⍉>⟨
+  "bqn"‿{BQN𝕩}
+  "type"‿•Type
+  "glyph"‿(glyphs⊑˜PrimInd)
+  "decompose"‿Decompose
+⟩
+BQN ← ⟨rt,Sys⌾(1⊸⊑)⟩⊸DRun
-- 
cgit v1.2.3