scratch/html.tcl: adding flesh