int n = 200;
while(n--)
print(
"sub aaa_" + randstring("qwertyuioasdfghjklZxcvbnm123456789",10) + "\n"
"{\n"
"	my ($a, $b, $c);\n"
"	my ($x, $y, $z);\n"
"	$x = shift;\n"
"	$a = 12 + shift; $b = 13 + shift; $c = $a + $b;\n"
"	$x =~ /hey joe/;\n"
"	$y = $1;\n"
"	while ($x--) {\n"
"		$a += $b;\n"
"	}\n"
"	print('hello world\\n');\n"
"}\n");
print("for(;;){}");
