(module number-parser (main get-number)) ;; (define (get-number args) (let* ((number (cadr args)) (regexp "^(\\+|-)?([0-9]*)(\\.([0-9]*))?(\\^((\\+|-)?[0-9]+))?$") (number-elems (pregexp-match regexp number))) (print number-elems)))