Add support for with-open and writers

[oubiwann]

The following needs to be made to work:

(with-open [writer (io/writer "/tmp/address-book.db")]
  (protobuf/write writer addresses))