#!/usr/local/bin/perl
#<
#to_seplib
#
#Usage:
#to_seplib.x  <in.H >out.H 
#
#Input Parameters:
#
#
#Output Parameters:
#
#
#
#Description:
#
#
#
#>
#-------------------------------------------------
#
#Author: 
#
#Date Created:Wed Mar 17 14:49:00 PST 1999
#
#Purpose: 
#
#

#Initial arguments
$selfoc="to_seplib <input output cols
 

 
";
if($#ARGV <1) {
  print STDERR $selfdoc;
  exit; 
}
 
$output=$ARGV[0];
$col=$ARGV[1];
open(OUT,">$output");
$nc=0;
while(<STDIN>){
	if($_ =~ /^\s*(\S.+)$/){ $line=$1;
		@array=split(/\s+/,$line);
		for($i=0; $i<$col;$i++){ print  OUT "$array[$i] ";}
		print OUT "\n";
		$nc++;
	}
}

print OUT "in=$output n1=$col n2=$nc esize=0";