#!/usr/bin/perl

# Andrew Daviel, TRIUMF


while (read (STDIN,$_,2)) {
  $n++ ;
  $d = unpack('s',$_) ;
  push(@d,$d) ;
  if ($ARGV[0] && $n >= $ARGV[0]) { last ; }
}
$n = @d ;
print<<EOT;
#FIG 3.2
Landscape
Center
Inches
Letter
100.00
Single
-2
1200 2
2 1 0 1 0 7 50 0 -1 0.000 0 0 -1 0 0 $n
EOT
for ($i=0;$i<$n;$i++) {
  print "$i $d[$i]\n" ;
}