perl -e'sub p{print"I will not throw paper airplanes in the class\n";++$x<500&&&p};p'