(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)))