#
# This is a SAS Component
#
#
# Copyright (c) 2003-2006 University of Chicago and Fellowship
# for Interpretations of Genomes. All Rights Reserved.
#
# This file is part of the SEED Toolkit.
#
# The SEED Toolkit is free software. You can redistribute
# it and/or modify it under the terms of the SEED Toolkit
# Public License.
#
# You should have received a copy of the SEED Toolkit Public License
# along with this program; if not write to the University of Chicago
# at info@ci.uchicago.edu or the Fellowship for Interpretation of
# Genomes at veronika@thefig.info or download a copy from
# http://www.theseed.org/LICENSE.TXT.
#

=head1 Convert Tabbed Representation of Sets to Numbered Relational Representation

This script takes as input a two-column tab-delimited file of numbered sets,
each record containing (0) the set number and (1) a set element. It collapses
each set onto a single output line, with each set being one
record in the file. Thus, if the input file is

    1       a
    1       b
    1       c
    2       d
    2       e
    3       f
    4       g
    4       h

the output would be

    a       b       c
    d       e
    f
    g       h


=cut


$_ = <STDIN>;
while (defined($_) && ($_ =~ /^(\S+)/))
{
    my @set = ();
    my $curr = $1;
    while ($_ && ($_ =~ /^(\S+)\t(\S+)/) && ($1 eq $curr))
    {
        push(@set,$2);
        $_ = <STDIN>;
    }
    print join("\t", @set),"\n";
}