Hello, World CGI - Scheme VM を書く

原始的ですが。

work.scm

(define (print s)
  (display s)
  (display "\n"))

(print "Status: 200 OK")
(print "Content-type: text/html")
(print "\n")
(print "Hello, World\n")

work.scmc

#!/usr/local/bin/mosh
(30 1 (2 (9 1 (16 (11 "\n" (2 (30 0 (36 1 1 (0 1))))) (32 0 (2 (30 0 (0 1))))) 1 #f (13 print (17)))))(16 (17) (11 "Status: 200 OK" (2 (31 print (0 1)))))(16 (17) (11 "Content-type: text/html" (2 (31 print (0 1)))))(16 (17) (11 "\n" (2 (31 print (0 1)))))(16 (17) (11 "Hello, World\n" (2 (31 print (0 1)))))