sub list {
  my $words=shift;
  my @words=split /\s/, $words;
  my @rv;
  for my $s (0..$#words) {
    for my $e ($s..$#words) {
      push(@rv, join(' ', @words[$s..$e]));
    }
  }
  return @rv;
}