+NL = defPrim("\n", () -> begin
+ if mem[STATE] == 0
+ println(" ok")
+ end
+ return mem[NEXT]
+end)
+
+# Odds and Ends
+
+CHAR = defPrim("CHAR", () -> begin
+ callPrim(mem[WORD])
+ wordLen = popPS()
+ wordAddr = popPS()
+ word = getString(wordAddr, wordLen)
+ pushPS(Int64(word[1]))
+
+ return mem[NEXT]
+end)
+
+EXECUTE = defPrim("EXECUTE", () -> begin
+ return mem[popPS()]
+end)
+
+BYE = defPrim("BYE", () -> begin
+ return 0
+end)
+