^?
|%
+$  life  @ud
+$  rift  @ud
+$  pass  @
++  unit  |$  [item]  (^unit item)
++  list  |$  [item]  (^list item)
++  lest  |$  [item]  (^lest item)
++  map   |$  [key value]  (^map key value)
++  jug   |$  [key value]  (^jug key value)
+$  ship  @p
+$  bite  ^bite
+$  octs  [p=@ud q=@]
++  ruth  |=([a=* b=*] ?>(?=(@ b) b))
++  add   ^add
++  bex   ^bex
++  mul   ^mul
++  end   ^end
++  rsh   ^rsh
++  lth   ^lth
++  gth   ^gth
++  swp   ^swp
++  cat   ^cat
++  rip   ^rip
++  turn  ^turn
++  welp  ^welp
++  by    ^by
++  ju    ^ju
++  mule  ^mule
::  TODO: delete
::
++  crypto  ^crypto
++  html    ^html
--