print "@$_" for sort{
	my ($o, $i) = (0,0);
	$i++ until      ($i < @$a  or $i < @$b)
		 and  $o =($a->[$i] cmp $b->[$i])
	        or  $o = @$a      <=> @$b;
	$o;
}@deps;

##</code><code>##

C B A
C G F H
C G F E D
C G F H I
C G F H J
M K
M N
M N Q P O
U S
V T

##</code><code>##

print "@$_" for sort{
	my ($o, $i) = (0,0);
	$i++ until     ( $i < @$a or  $i < @$b )
		 and  $o=( $a->[$i] cmp $b->[$i] );

	$o || @$a <=> @$b;
}@deps;