adam@1799: fun handler r =
adam@1799: vo <- getenv (blessEnvVar r.Nam);
adam@1799: return
adam@1799: {case vo of
adam@1799: None => Not set
adam@1799: | Some v => Set to: {[v]}}
adam@1799:
adam@1799:
adam@1799: fun main () : transaction page =
adam@1799: term <- getenv (blessEnvVar "TERM");
adam@1799: return
adam@1799: TERM = {case term of
adam@1799: None => Nada
adam@1799: | Some v => txt v}
adam@1799:
adam@1799:
adam@1799: