anchor.diff:      let getBytes (IpAddress ip) = getBytes ip |> Result.get
   
   module PositiveInt =
  +    /// 0 is inclusive
       type T = PositiveInt of uint64
   
       type Error =
  
positive.code:             else
                  Failure StringError.NotASCIIString
  
      let apply f (ASCIIString s) = f s
      let unwrap (ASCIIString s) = s
  
  
negative.code:             else
                  LockData s |> Success
          )
      let generate () =
          let rnd = System.Random()
          let len = rnd.Next(81, 134)
          ASCIIString.generate len |> LockData
  
      let apply f (LockData s) = f s
      let unwrap (LockData s) = s
  
  module NickData =
      type T = NickData of ASCIIString.T
  