Bit too easy to do in this lang...

riak.factor

USING: io io.encodings.binary io.sockets byte-arrays.hex ;
IN: riak

! ----------------------------------------------------------------------------                                                                   
CONSTANT: rpb-ping-req  HEX{ 00 00 00 01 01 }
CONSTANT: rpb-ping-resp HEX{ 00 00 00 01 02 }
CONSTANT: rpb-get-client-id-req  HEX{ 00 00 00 01 03 }
CONSTANT: rpb-get-client-id-resp HEX{ 00 00 00 07 04 0A 04 01 65 01 B5 }

: request ( req -- resp )
    "127.0.0.1" 8087 <inet> binary [
        write flush 5 read
    ] with-client ;