(use-modules (ice-9 format))

(define (emit template-string . args)
  (apply format #t template-string args)
  (newline))

(define (compile-program x)
  (with-output-to-file "scheme_entry.S"
    (lambda ()
      (display ".text
.p2align 4
.globl	scheme_entry
.type	scheme_entry, @function
scheme_entry:
")
      (emit "movl $~a, %eax" x)
      (emit "ret"))))