sub sub1 {
  my %para = @_;
  return join '', map { sprintf($para{text}, $_) } @option;
}