use strict;
use warnings;

use S;

print $x;
print "\n";