recrypt :: R.KeyPair -> BS.ByteString -> IO BS.ByteString
recrypt pair secret = do
  encrypted <- R.encrypt (R.public pair) secret
  R.decrypt (R.private pair) encrypted
recrypt :: R.KeyPair -> BS.ByteString -> IO BS.ByteString
recrypt pair secret = do
  encrypted <- R.encrypt (R.public pair) secret
  R.decrypt (R.private pair) encrypted
recrypt pair secret = do
  encrypted <- R.encrypt (R.public pair) secret
  R.decrypt (R.private pair) encrypted