+ } elsif (s/^-n(\d{1,2})$//) {
+ $count = 1;
+ } elsif (s/^-F([^()\\]+)$//) {
+ $fontname = $1;
+ } else {
+ badusage;
+ }
+ }
+}
+
+if ($papersize eq 'creditcard') {
+ # ISO/IEC 7810 ID-1, from en.wikipedia.org/wiki/Payment_card
+ @paperpts = map { $_ * 72.0 / 25.4 } qw(85.60 53.98);
+} else {
+ $!=0; $?=0; my $r = `paperconf -sp $1`;
+ defined $r or die "paperconf failed: $? $!\n";
+ $r =~ m/^([0-9.]+) ([0-9.]+)$/ or die "$_ ?";
+ @paperpts = ($1,$2);
+}
+
+@ARGV >= 2 or badusage;
+
+our @strings;
+
+our $nlen = 0;