roller: proper parsing of crypto-suite
%- ot
:~ ['encrypt' (cu to-hex so)]
['auth' (cu to-hex so)]
- ['cryptoSuite' so]
+ ['cryptoSuite' (su dem)]
['breach' bo]
==
::
:- 'keys'
%- pairs
:~ ['life' s+(json-number life.keys.net)]
- ['suite' s+`@t`suite.keys.net]
+ ['suite' s+(json-number suite.keys.net)]
['auth' (hex 32 auth.keys.net)]
['crypt' (hex 32 crypt.keys.net)]
==
