#! /usr/bin/env arc
(import nuit/nuit-parse)
(def html-encode (x)
x)
(def to-html (x)
(if (isa x 'string)
(string "" (html-encode x) "
")
(string "" (html-encode cadr.x) "
" (map to-html cddr.x) "
")))
(w/infile f car.script-args
(prn ""
""
""
""
""
(string:map to-html (nuit-parse f))
""
""))