($-,$=)=glob<>;vec$s.=<>,$-*8-4,1or$_=$-,$--=$=while$---;print