sub non_dempotent_string {
   my( $string, undef ) = shift->non_idempotent_string_nuts (@_);
   return $string;
}