print "$$\n";
my $n = 3;
$x = 'monks' x ($n);
sleep 60;