#! /usr/bin/perl -w
##---------------------------------------------------------------------------##
##  File:
##      wfl-flatten
##  Author:
##      Tomaz Erjavec             tomaz.erjavec@ijs.si
##  Description:
##      Iz WFL formata naredimo format: WF(<tab>LM)<tab>MSD MSD ... MSD
###############################################################################

$word="";
while (<>) {
    ($wf,$msd)=/^(.+)\t([^\t]+)$/;
    if ($word eq "") {$word=$wf; $msds=$msd}
    elsif ($word eq $wf) {$msds = "$msds $msd"}
    else {
	@msds = split(' ', $msds);
	@msds = sort(@msds);
	$msds = join(' ',@msds);
	print "$word\t$msds\n";
	$word = $wf;
	$msds= $msd;
    }
}
@msds = split(' ', $msds);
@msds = sort(@msds);
$msds = join(' ',@msds);
print "$word\t$msds\n";