<>;print$r+=m??|$a<$_,$/for$a=<>,<>