anchor.diff:        s (substitute #\_ #\- (string-downcase (princ-to-string l)))
         (values (b58 (slice (sha512 s) 0 16)) s)))
   
  -(assert (equal (serialization-hash) "QxT8ErCEhmK886v9mjSAMn"))
  +(assert (equal (serialization-hash) "5RP6tvVXwTsCPsUMid9AMx"))
   
   ; Set up users and corresponding ratchet sessions
   
  
positive.code: (defv bob (make-sc4-user 'bob))
  (defv charlie (make-sc4-user 'charlie))
  
  (defv rsa (make-ratchet-session :user 'alice))
  (defv rsb (make-ratchet-session :user 'bob))
  (defv rsc (make-ratchet-session :user 'charlie))
  
  ; Reset and provision the OTPK server
  (reset $otpk-server)
  
negative.code: 
  (require :ergolib)
  (require :basen)
  (pushnew (this-directory) *module-search-path* :test 'equalp)
  (require :tweetnacl-bindings)
  
  ; This should go in general utilities
  