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