our @ISA = qw(Perlmazing::Listable);
sub main {
$_[0] =~ s/'/\\'/g if defined $_[0];
}
1;