# Pastebin UQlobysz
use Test;

#| reverse the zip operation
sub reverse-zip(@list-of-tuples) {
     [Z] @list-of-tuples
}

my List $l1 = (1, 2, 3);
my List $l2 = <a b c>;
my List() $input = zip @$l1, @$l2;
my List $expected = ($l1, $l2);

# we need to convert all elements of @expected-output to lists
# otherwise we get an error
is-deeply reverse-zip($input), $expected;