#!/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$?*', '', ',(.)" '];
IyEvdXNyL2Jpbi9wZXJsNgoKbXkgJmdvbGYgPQoKICAgIHtbfl0gZmxhdCByb3VuZHJvYmluIHwkX8K7LmNvbWJ9CgoKc2F5IGdvbGYgWydTSU1QTEUnXTsKc2F5IGdvbGYgWydQT0xMUycsICdFUEVFUyddOwpzYXkgZ29sZiBbJ0xZRVMnLCAnQVBST05TJ107CnNheSBnb2xmIFsnQUJDREUnLCAnYSBjJywgJzEyMyA1NjcnXTsKc2F5IGdvbGYgWyciXG4kPyonLCAnJywgJywoLikiICddOw==