an example of cruft needed to generate pages for user interaction

# mkForms construct the default login forms
    method mkForms {} {
	variable mount
	variable forms
	if {![dict exists $forms login]} {
	    # forms for Login
	    dict set forms login [subst {
		[<form> action [file join $mount login] class login {
		    [<submit> submit style {display:none;} Login]
		    [<text> user size 8 title Username]
		    [<text> password size 8 title Password]
		}]
	    }]
	}

	if {![dict exists $forms logout]} {
	    dict set forms logout [<a> href [file join $mount logout] Logout]
	}
	if {![dict exists $forms logmsg]} {
	    dict set forms logmsg {[<message> "$message [<a> href $url {Go Back.}]"]}
	}
	if {![dict exists $forms new]} {
	    dict set forms new [<form> newuser action new class login [<fieldset> [subst {
		[<legend> "Create User"]
		[<text> user title "user id" label "User Id: " "%USER"]
		[<text> password title "password" label "Password: " "%PASSWORD"]
		[<br>][<text> given title "given name" label "Given: " ""]
		[<text> surname title "surname" label "Surname: " ""]
		[<br>][<submit> submit value 1]
	    }]]]
	}
    }