(def read-str
  (let
    [*all-chars (mapv char (range 0 128))
     *negate (+seqf (constantly (symbol "negate")) (+char "n") (+char "e") (+char "g") (+char "a") (+char "t") (+char "e"))
     *variable (+map symbol (+str (+plus (+char "xXyYzZ"))))
     *digit (+char (apply str (filter #(Character/isDigit %) *all-chars)))
     *space (+char (apply str (filter #(Character/isWhitespace %) *all-chars)))
     *ws (+ignore (+star *space))
     *number (+map read-string (+str (+plus (+or *digit (+char "-.")))))
     *operations (+map symbol (+str (+plus (+char "+-/*"))))]
    (letfn [(*seq [begin p end]
              (+seqn 1 (+char begin) (+opt (+seqf cons *ws p (+star (+seqn 1 (+char " ") *ws p)))) *ws (+char end)))
            (*array [] (*seq "(" (delay (*value)) ")"))
            (*value [] (+or *negate *number *variable  (*array) *operations))]
      (+parser (+seqn 0 *ws (*value) *ws)))))


(defn parseSuffix [expression]
  (cond
    (number? expression) (Constant expression)
    (symbol? expression) (Variable (str expression))
    :else (apply (operationsMap (last expression)) (map parseSuffix (butlast expression)))
    )
  )

(defn parseObjectSuffix [expression] (parseSuffix (read-str expression)))