-record(writer, {buffer :: bitstring()}).