note no_slogan Down to 97 characters. Works for arbitrary graphs, i think. <code>sub b { $a=@_*@_;for(@_){%t=@_;$t=@r=$_;$t+=%t while@r=map@{delete$t{$_}},@r;$a=$t,$b=$_ if!ref&&$t<$a}$b }</code> <p><b>Update:</b> Thanks to [MeowChow] for crawling through that thoroughly fetid blob of code and discovering that I need to say <code>$t+=keys%t</code> instead of <code>$t+=%t</code>. And here I thought I was being so clever. 80272 80272