sub t{
  my ($o) = @_;
  my $c = 0;
  my $r;
  map{ $r .= $_ unless($k-$o+$c) % $k; $c++ } $t=~/./gs;
  $r =~ s/[^a-z]//g;
  $r
}