;; -*- Mode: Irken -*-


(require "lib/basis.scm")
(require "glulx/vm.scm")

(let ((input (file/open-stdin))
      (output (file/open-stdout)))

  (define (read-line)
    (file/read-line input))

  (define (write-string s)
    (file/write output s)
    (file/flush output))

  (run-game sys.argv[1] read-line write-string)
  (write-string (format "\x1b[0m" (char #\u1f4a9) "\n"))
  0)