toHoTTTest1 :: (Either String HSQueryExpr, String)
toHoTTTest1 = (q2hst, "(SELECT right\8901left\8901a FROM (product ((SELECT (combine right\8901a right\8901k) FROM (table x) WHERE true)) (table y)) WHERE (equal right\8901left\8901k right\8901right\8901k))")
toHoTTTest1 :: (Either String HSQueryExpr, String)
toHoTTTest1 = (q2hst, "(SELECT right\8901left\8901a FROM (product ((SELECT (combine right\8901a right\8901k) FROM (table x) WHERE true)) (table y)) WHERE (equal right\8901left\8901k right\8901right\8901k))")
toHoTTTest1 = (q2hst, "(SELECT right\8901left\8901a FROM (product ((SELECT (combine right\8901a right\8901k) FROM (table x) WHERE true)) (table y)) WHERE (equal right\8901left\8901k right\8901right\8901k))")