sub catSF {
    my ($lhs, $rhs, $inv) = @_;

    ($lhs, $rhs) = ($rhs, $lhs) if $inv;