#!/usr/bin/perl6

my &golf =

    {[~] flat roundrobin |$_».comb}


say golf ['SIMPLE'];
say golf ['POLLS', 'EPEES'];
say golf ['LYES', 'APRONS'];
say golf ['ABCDE', 'a c', '123 567'];
say golf ['"\n$?*', '', ',(.)" '];