_:print+"perlmonks rule!\n";
++$-<$]+$]>>$?&&goto+_;