sS hlabelFor(S id, O contents) {
  ret htag label(contents, "for" := id);
}