(import (scheme base)
        (scheme write)
        (scheme file)
        (scheme process-context)
        (stklos))


(define puts (make-external-function "puts" (list :string) :string ""))

(define hello "Hello")

(display (%get-typed-ext-var hello :string))
(newline)

;(puts "Hello")
;(newline)