+ if ($kind == TmplTokenType::TEXT_PARAMETRIZED) {
+ printf "Form (c-format string):\n";
+ printf "%dH%s\n", length $s->form, underline $s->form;
+ printf "Parameters:\n";
+ my $i = 1;
+ for my $a ($s->parameters) {
+ my $t = $a->string;
+ printf "%%%d\$s = %dH%s\n", $i, length $t, underline $t;
+ $i += 1;
+ }
+ }