rough sketch

carrot3->malfunction.scm

(use srfi-1)

(define (mlf-symbol sym)
  (string->symbol (string-append "$" (symbol->string sym))))

(define (compile expr)
  (cond
   [(number? expr) expr]
   [(string? expr) (string-append "\"" expr "\"")]
   [(symbol? expr) (mlf-symbol expr)]
   [(eq? (car expr) 'quote) (cadr expr)]
   [(eq? (car expr) '^)
    (list 'lambda
          (map mlf-symbol (drop-right (cdr expr) 1))
          (compile (last expr)))]
   [#t (append (list 'apply
                     (compile (car expr)))
               (map compile (cdr expr)))]))

(define (main args)
  (print
   (list 'module
         (list '_ (list 'apply '(global $Pervasives $print_string) (compile (read))))
         '(export))))