diff --git a/README.md b/README.md
new file mode 100644
index 0000000000000000000000000000000000000000..a0b53b6b065026b43f3eb85b2d6f949dfbdb3b8c
--- /dev/null
+++ b/README.md
@@ -0,0 +1 @@
+kral from kralomoc, a "hot jupiter" exoplanet and "jupiter" in ancient slovak
diff --git a/kral.k b/kral.k
new file mode 100644
index 0000000000000000000000000000000000000000..ec8a86f3e70fcbcf836981fa7e07afeccdfdb041
--- /dev/null
+++ b/kral.k
@@ -0,0 +1,7 @@
+w:{"/dev/stdout"0:x,"\r"}
+p:0:"test.kn"
+k:{(0 1)~x?"%k"}
+ki:&k'[p]
+in:.'3_'p[ki]
+ins:{?[p;1+(x;x);,y]}
+c:{$[0=#ki;p;p:ins[*ki;*in];ki:1_ki;in:1_in;c[]]} /this is horrendous and doesn't work FIXME
diff --git a/test.kn b/test.kn
new file mode 100644
index 0000000000000000000000000000000000000000..f931911f0905afefa0b044f14bbd9d194ae69621
--- /dev/null
+++ b/test.kn
@@ -0,0 +1,18 @@
+# Lorem ipsum.
+
+Lorem ipsum dolor sit amet adipiscing.
+
+%k 2+2
+
+Lorem ipsum dolor sit amet adipiscing.
+
+%k x:3+4;x
+
+Lorem ipsum dolor sit amet adipiscing.
+
+%%k
+y:x-2
+z:x+2
+"x: ",$x,", y: ",$y,", z: ",$z
+
+Lorem ipsum dolor sit amet adipiscing.