ska: nouncode interpreter

hoon/codegen/exa/dec.hoon

@@ -0,0 +1,19 @@
+=>
+~%  %k.139  ~  ~
+|%
+++  hoon-version  139
+--
+~%  %one  +  ~
+|%
+++  dec
+  ~/  %dec
+  ::    unsigned decrement by one.
+  |=  a=@
+  ~_  leaf+"decrement-underflow"
+  ?<  =(0 a)
+  =+  b=0
+  ::  decremented integer
+  |-  ^-  @
+  ?:  =(a +(b))  b
+  $(b +(b))
+--

hoon/codegen/sur/gene.hoon

@@ -96,7 +96,7 @@
 ::  %tom - Pop a timer from the timer stack, stop it, and print elapsed
 ::  %mem - Print memory usage
 ::  %poi - Poison d
-::  %ibp - If any register in s is poisoned, crash.
+::  %ipp - If any register in s is poisoned, crash.
 +$  pole
   $%  [%imm n=* d=@uvre]
       [%mov s=@uvre d=@uvre]

resources/pills/src/toddler/playpen.hoon

@@ -1,7 +1,7 @@
 ::  This file aims to approach hoon.hoon, as the pieces necessary to run a live
 ::  ship with Ares as Serf are written. Required to run toddler.hoon as an Arvo.
 ::
-!.
+!:
 =>  %a50
 ~%  %a.50  ~  ~
 |%
@@ -178,7 +178,7 @@
 ::  Tree addressing
 ::
 ++  cap                                                 ::  index in head or tail
-  ~/  %cap                                              
+  ~/  %cap
   |=  a=@
   ~>  %sham.%cap
   ^-  ?(%2 %3)

resources/pills/src/toddler/toddler.hoon

@@ -2,7 +2,7 @@
 ::  scaffolding directory.
 ::
 /+  playpen
-!.
+!:
 =/  core
   =>  playpen
   !=
@@ -58,6 +58,8 @@
     |=  [now=@da ovo=ovum]
     ^-  ^
     ::
+    ~>  %slog.[0 p.card.ovo]
+    ~>  %slog.[0 [%rose ["/" "/" ""] wire.ovo]]
     ?.  ?=(?(%crud %wack %wyrd) p.card.ovo)
       ~>  %slog.[0 leaf+(scow %ud (slow (bex 23)))]
       [~ ..poke]