g()('al') ;;( https://github.com/eatnumber1/goal )

goal.el

;; goal in elisp

;; emacs -batch -Q -l goal.el

(defmacro g (&rest al)
  `(concat "g"
           (apply 'concat
                  (mapcar (lambda (o)
                            (if (null o) "o"
                              (if (listp o) (car o)
                                "")))
                          ',al))))

;; test
(defmacro test-g (&rest s)
  `(mapc (lambda (s)
           (print (eval s)))
         ',s)
  )

(test-g
 (g("al"))
 (g()("al"))
 (g()()("al"))
 (g()()()("al"))
)

goal.py

# http://ideone.com/ZHpT4j

g = lambda s = None, r = 'g': (lambda s = None: g(s, r + 'o')) if s is None else r + s
 
print g("al")
print g()("al")
print g()()("al")
print g()()()("al")
print g()()()()("al")
 
f = 'g'
while True:
    print eval(f + '("al")')
    f += '()'