Compromise - generation using a custom little language

Form layout foo {
	    fieldset fsearch {
		submit submit "Search"
		text kw title "Search Text"
		<br> clear both
		radioset scope {fieldset style} "float:left" legend "Search scope" {
		    +site 0
		    section 1
		}
		select newer {fieldset style} "float:left" legend "Newer Than" {
		    option week value "last week"
		    option fortnight value "last fortnight"
		    option month value "last month"
		    option year value "last year"
		}
		select older {fieldset style} "float:left" legend "Older Than" {
		    option week value "last week"
		    option fortnight value "last fortnight"
 		    option month value "last month"
		    option year value "last year"
		}
		select sort {fieldset style} "float:left" legend "Sort By" {
		    option title value title
		    option author value author
		}
	    }
	    fieldset sr1 style moop {
		radioset scope1 label "Search scope" {
		    +site 0
		    section 1
		}
		select newer1 label "Newer Than" {
		    option week value "last week"
		    option fortnight value "last fortnight"
		    option month value "last month"
		    option year value "last year"
		}
		select older1 label "Older Than" {
		    option week value "last week"
		    option fortnight value "last fortnight"
		    option month value "last month"
		    option year value "last year"
		}
		selectset sort1 label "Sort By" {
		    title
		    author
		}
	    }
	    text fullname label "full name"
	    button foo
	    radioset rs ...
	    text text ...
	}]