sub c {
  my $copy = $main::string;
  my $ix = indexNth( $copy, '!', 50000 );
  substr( $copy, 0, $ix ) =~ tr/!/\n/;
  return \$copy;
}