adamc@97: val main : xml[Html] =