#!/usr/bin/perl

open IN,"flx2a <0.flx |";

$lasta1=-1;
$lasta2=-1;

while($l = <IN>)
{
  chomp($l);
  print "$l";
  if($l =~ /^(\d+) (\d+)$/)
  {
    $a1 = $1;
    $a2 = $2;
    if($a1 == $lasta1)
    {
      $d = $a2-$lasta2;
      if($d != 1)
      {
	print "  $d";
      }
    }
    $lasta1 = $a1;
    $lasta2 = $a2;
  }
  print "\n";
}