User:Feuermonster/Hello Plus Plus Interpreter

#!/usr/bin/stlisp
(let (str-to-ls "Hello, World") "code")

(def "interpret-hw" '`( 
  (let "interpret-hw-cur") 
  (eq (interpret-hw-cur) "H" '(print "Hello, World") '(`))
  (eq (interpret-hw-cur) "h" '(print "Hello, World") '(`)) ) )


(reduce "interpret-hw" (code))