sub build_list {
  my $max = shift();
  return map Label(value=>$_), 0..$max;
}