encrypt :: R.KeyPair -> BS.ByteString -> IO R.Encrypted
encrypt pair secret = do
  R.encrypt (R.public pair) secret
encrypt :: R.KeyPair -> BS.ByteString -> IO R.Encrypted
encrypt pair secret = do
  R.encrypt (R.public pair) secret
encrypt pair secret = do
  R.encrypt (R.public pair) secret