Add repr, testing example

1 files changed, 4 insertions, 0 deletions

diff --git a/src/main.hs b/src/main.hs
index 0f0aeb8..e14e5ac 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -200,6 +200,10 @@ interpretWord state@LState {lDefs = defs, lDict = dict, lSource = source, lPhras
             let (LSymbol "]" : stack') = stack
                 (body, _ : newStack) = break (== LSymbol "[") stack'
              in pure $ state {lStack = LPhrase (reverse body) : newStack}
+          "repr" ->
+            let (word : stack') = stack
+                reprStr = reprWord word $> map LChar .> LPhrase
+             in pure $ state {lStack = reprStr : stack'}
           "pop" ->
             let (LPhrase phrase : stack') = stack
                 (first : rest) = phrase