<-

<_.clj

(defmacro <-
  [& טופסים]
  (let [[x & טופסים] (reverse טופסים)]
    (loop [x x, טופסים טופסים]
      (if טופסים
        (let [טופס (first טופסים)
              מתארגן (if (seq? טופס)
                       (with-meta `(~(first טופס) ~x ~@(next טופס)) (meta טופס))
                       (list טופס x))]
          (recur מתארגן (next טופסים)))
        x))))

(prn (<- inc inc 1))
;; 3 <=