gistfile1.txt

    my \l = ("Hello", "bye", ("something", ("list", "foo", "boo"), ("mars", "bar")));
    
    sub tree-it($item) {
        my %h is default(IterationEnd) = $item.pairs;
        do for 0..* -> $idx {
            last if %h{$idx}:!exists;
            my $left = %h{$idx};
            my $right = %h{$idx + 1};

            dd $right;
            $left & $right ~~ Str
                ?? |($left, '-')
                !! ($left ~~ Str && $right ~~ Positional)
                    ?? |($left, '|\\')
                    !! $left ~~ Positional
                       ?? |(samewith($left), $right ~~ Positional ?? '|' !! Empty)
                       !! $left
        }
    }

    l.&tree-it.say