#! perl -wl
die unless defined($_=<>);
chomp;
unless($_ eq 'exposed-modules:'){
    die unless $_ eq''; #rts has no exposed-modules
    die if defined($_=<>);
    exit 0;
}
while(<>){
    chomp;
    die unless s/^\s+//;
    $all.=' ' if defined$all;
    $all.=$_;
}
#print "all $all";
$_=$all;
unless(/,/){
    for(split){
        print;
    }
}
else{
    #'ghc' is a package which uses commas
    for(split /\s*,\s*/){
        if (/^(\S+) from (.*):(.*)$/){
            print$1;
        }
        elsif (/^\S+$/){
            print;
        }
        else {
            die "ERROR $_";
        }
    }
}