head     1.1;
branch   1.1.1;
access   ;
symbols  INIT:1.1.1.1 VENDOR:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     2004.08.10.16.05.55;  author wkpark;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     2004.08.10.16.05.55;  author wkpark;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@#!/usr/bin/perl
$o=-1;
$n=0;
while(<>) {
  ($u,$n)=split(/\s+/);
  if ($o == $n) {
      print STDERR "$u $ou\n";
  } elsif ($o+1 != $n) {
    $i=++$o;
    while ($i < $n) {
      print "0 ",$i++,"\n";
    }
    print;
  } else {
    print;
  }
  $o=$n;
  $ou=$u;
}
@


1.1.1.1
log
@Import
@
text
@@
