$.=qq.-.x5;$_=qq.\r<=$[..$..qq.>\t.;
while(s|=$[-|-=$[|||s|-$[=|$[=-|||s|<$[=|<=$[|||s|=$[>|$[=>|){
$|=1;select($,,$,,$,,0.1);print}