diff --git a/forth/high.fs b/forth/high.fs
new file mode 100644
index 0000000..765ddc9
--- /dev/null
+++ b/forth/high.fs
@@ -0,0 +1,14 @@
+( Higher level stuff that generally requires all core units )
+
+: ."
+    LIT
+    BEGIN
+        C< DUP          ( c c )
+        ( 34 is ASCII for " )
+        DUP 34 = IF DROP DROP 0 0 THEN
+        C,
+    0 = UNTIL
+    COMPILE (print)
+; IMMEDIATE
+
+: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE