(define (parse seq)
    (if (not (list? seq)) '()
        (apply (eval (car seq)) (map eval (cdr seq)))))

(parse '(+ (* 2 (- 4 1)) (/ 6 2)))