#!/usr/local/bin/perl

$prev = '';
%p = ();
while (<>) {
    chomp;
    if (m!/!) {
	$w = $`;
	$x = $';
    } else {
	$w = $_;
	$x = '';
    }
    if ($w ne $prev) {
	if ($prev ne '') {
	    $rest = join '', sort keys %p;
	    if ($rest eq '') {
		print "$prev\n";
	    } else {
		print "$prev/$rest\n";
	    }
	}
	$prev = $w;
	%p = ();
    }
    $p{$x} = 1 if ($x ne '');
}

$rest = join '', sort keys %p;
if ($rest eq '') {
    print "$prev\n";
} else {
    print "$prev/$rest\n";
}