(defn grow [x $t] ()
  (grow [x x]))
(defn main [] () (grow 1))