HS parser: fix number+comparison keyword collision, eval-hs uses hs-compile

Parser: skip unit suffix when next ident is a comparison keyword
(starts, ends, contains, matches, is, does, in, precedes, follows).
Fixes "123 starts with '12'" returning "123starts" instead of true.

eval-hs: use hs-compile directly instead of hs-to-sx-from-source with
"return " prefix, which was causing the parser to consume the comparison
as a string suffix.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

sx/sx/handlers/graphql-api.sx

@@ -0,0 +1,24 @@
+
+;; GraphQL playground API handler — returns raw text for innerHTML injection
+
+(defhandler
+  gql-parse-demo
+  :path "/sx/(applications.(graphql.(api.parse-demo)))"
+  :method :get
+  :returns "text"
+  (&key source)
+  (if
+    (or (nil? source) (empty? source))
+    "<p class=\"text-sm text-gray-400 italic\">Enter a GraphQL query and click Parse.</p>"
+    (let
+      ((doc (gql-parse source)))
+      (str
+        "<div class=\"space-y-4\">"
+        "<div><h4 class=\"text-xs font-semibold uppercase tracking-wider text-gray-500 mb-2\">AST</h4>"
+        "<pre class=\"bg-gray-900 text-green-400 p-4 rounded-lg text-sm overflow-x-auto\">"
+        (escape (sx-serialize doc))
+        "</pre></div>"
+        "<div><h4 class=\"text-xs font-semibold uppercase tracking-wider text-gray-500 mb-2\">Serialized</h4>"
+        "<pre class=\"bg-gray-900 text-amber-400 p-4 rounded-lg text-sm overflow-x-auto\">"
+        (escape (gql-serialize doc))
+        "</pre></div></div>"))))