Add more structured syntax

test/highlight/highlight_examples.hy

@@ -0,0 +1,30 @@
+(setv foobar (+ 2 2))
+(setv [tim eric] ["jim" "derrick"])
+(setv  alpha "a"  beta "b")
+
+(sorted "abcBC"
+  :key (fn [x] (.lower x)))
+
+(defn test [a b [c "x"] #* d]
+  [a b c d])
+
+(with [o (open "file.txt" "rt")]
+  (setv buffer [])
+  (while (< (len buffer) 10)
+    (.append buffer (next o))))
+
+(lfor
+  x (range 3)
+  y (range 3)
+  :if (= (+ x y) 3)
+  (* x y))
+
+(defmacro do-while [test #* body]
+  `(do
+    ~@body
+    (while ~test
+      ~@body)))
+
+(setv x 0)
+(do-while x
+  (print "Printed once."))