sub brutesay{
	if(@_>=1){
		for(@_){print("$_\n")}
	}else{
		($package,$filename,$line) = caller;
		open $fh,$filename;
		for $i(0..$line-2){<$fh>}
		if(<$fh>=~/brutesay *(\(\))? *;/){print "$_\n";}
	}
}