#!/usr/bin/env perl6

use v6;

my @words = Q:w:to/END/.map: *.comb.list;
	words
	END

say (^@words[0].elems).map(-> $i {bag @words.map({$_[$i]})}).map(*.antipairs.sort[*-1].value).join;
say (^@words[0].elems).map(-> $i {bag @words.map({$_[$i]})}).map(*.antipairs.sort[0].value).join;