^?
|%
+$  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))
++  dec   ^dec
++  add   ^add
++  bex   ^bex
++  mul   ^mul
++  end   ^end
++  rsh   ^rsh
++  lth   ^lth
++  gth   ^gth
++  swp   ^swp
++  cat   ^cat
++  can   ^can
++  rep   ^rep
++  rip   ^rip
++  turn  ^turn
++  levy  ^levy
++  welp  ^welp
++  flop  ^flop
++  lent  ^lent
++  by    ^by
++  ju    ^ju
::
++  dad
  |=  [=bite a=@ b=@]
  (add a (lsh bite b))
::  TODO: delete
::
++  crypto  ^crypto
++  html    ^html
++  cain    ^cain
++  onan    ^onan
++  abel    ^abel
--