getTableNames (ip,op) = do
  send_getTableNames op
  recv_getTableNames ip
getTableNames (ip,op) = do
  send_getTableNames op
  recv_getTableNames ip
getTableNames (ip,op) = do
  send_getTableNames op
  recv_getTableNames ip