(let [session (client/connect ["localhost"])]
(create-table session "test-table"
(column-definitions {:uuid :varchar
:name :varchar
:class :int
:subclass :int
:primary-key [:uuid]})))