sub buildtree {
        my($f, @a) = @_;
        local $_;

        @a = ((sort $f @a), '');
        $_ = join '=>[0,{', @a;
        chop;
        $_ = '(' . $_ . '0' . ']}' x $#a;
        s/}$/)/;
        eval;
}