sub equal {@_ < 2 || $_[0] eq $_[1] && equal(@_[1..$#_])}