(define (get-number-string args) (let ((op (string->symbol (cadr args))) (Largs (map parse2number (cddr args)))) (print (apply (eval op) Largs)) ))