#!perl -pa
$-=$_;vec$s.=<>,$-*8-4,1or$_=$-,$--=$F[1]while$---