, , . , ( - ), :
(define (check input)
(cond ((null? input) ; the input list is empty
<???>) ; return the empty list
((string->number (car input)) ; can we convert the string to a number?
(cons "number" <???>)) ; add "number" to list, advance the recursion
(else ; the string was not a number
(cons "operand" <???>)))) ; add "operand" to list, advance recursion
:
(define (write-to-file path string-list)
(call-with-output-file path
(lambda (output-port)
(write <???> output-port)))) ; how do you want to write string-list ?
, lambda, , , , , , , .. , :
(write-to-file "/path/to/output-file"
(check input))