package Number::Natural::SetTheory;
use 5.010;
use boolean;
use JSON qw/to_json/;
use strict;
use utf8;
our (@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN
{
$Number::Natural::SetTheory::AUTHORITY = 'c
return scalar @$set;
}
return undef;
}
sub set_to_string
{
my ($set) = @_;
my $string = to_json($set);
$string =~ s/\[/\{/g;
$string =~ s/\]/\}/g;
return $string;
}
'What exactly is zero?';