sub decomp {
    @_ = split / /, shift;
    return [ map { join " ", (shift, shift, $_[0]) } (1..@_/2) ];
}