...
    return SF->new (
               "$lhs->{str}$rhs->{str}",
               [
                 map ref($_) eq 'ARRAY' ? @$_ : (),
                     $lhs->{list}, $rhs->{list}
               ]
           );