Inserts example that doesn't break up

Adds a non-breaking up example of slip in a subroutine

Adds a method call that acts differently for comparison

doc/Type/Slip.pod6

@@ -35,14 +35,16 @@ it behaves closer to the C<.Slip> method than the C<slip> subroutine.
 
 =for code
 my $l = (1, 2, 3);
-say (1, slip 2, 3).raku;  # says (1, 2, 3)      , slips 2, 3 into (1, …)
-say (0, slip $l).raku;    # says (0, 1, 2, 3)   , slips from $l into (0, …)
-say (0, $l.Slip).raku;    # says (0, 1, 2, 3)   , slips from $l into (0, …)
-say (|$l).raku;           # says slip(1, 2, 3)  , breaks apart $l
-say (0, (|$l, 4), 5);     # says (0 (1 2 3 4) 5), slips from $l into (…, 4)
-say (0, ($l.Slip, 4), 5); # says (0 (1 2 3 4) 5), slips from $l into (…, 4)
-say (0, (slip $l, 4), 5); # says (0 (1 2 3) 4 5), slips ($l, 4) into (0, …, 5)
-say (0, ($l, 4).Slip, 5); # says (0 (1 2 3) 4 5), slips ($l, 4) into (0, …, 5)
+say (1, slip 2, 3).raku;  # says (1, 2, 3)          , slips 2, 3 into (1, …)
+say (0, slip $l, 4).raku; # says (0, $(1, 2, 3), 4) , $l does not break apart
+say (0, slip $l).raku;    # says (0, 1, 2, 3)       , slips from $l into (0, …)
+say (0, $l.Slip).raku;    # says (0, 1, 2, 3)       , slips from $l into (0, …)
+say (0, $l.Slip, 4).raku; # says (0, 1, 2, 3, 4)    , slips from $l into (0, …, 4)
+say (|$l).raku;           # says slip(1, 2, 3)      , breaks apart $l
+say (0, (|$l, 4), 5);     # says (0 (1 2 3 4) 5)    , slips from $l into (…, 4)
+say (0, ($l.Slip, 4), 5); # says (0 (1 2 3 4) 5)    , slips from $l into (…, 4)
+say (0, (slip $l, 4), 5); # says (0 (1 2 3) 4 5)    , slips ($l, 4) into (0, …, 5)
+say (0, ($l, 4).Slip, 5); # says (0 (1 2 3) 4 5)    , slips ($l, 4) into (0, …, 5)
 
 Loops that do not want to produce a value for an iteration use C<Slips>, rather
 than empty C<List>s to do so, as do C<if> statements that do not run their