gistfile1.txt

(define-method object-apply ((operand <top>) arg . args)
  (let* ([args (cons arg args)]
         [operator (find (^a (or (is-a? a <procedure>)
                                 (is-a? a <generic>)))
                         args)]
         [operands (cons operand (delete operator args))])
    (unless operator
      (error "No operator in application form:" (cons operand args)))
    (apply operator operands)))

#|
gosh> (+ 1 1)
2
gosh> (1 + 1)
2
gosh> (1 1 +)
2
gosh> ("abc" (1 2 3 +) list ("ghi" string-append "jkl"))
("abc" 6 "ghijkl")
|#