<>; / .* /,++$_[$`],++$_[$&],++$_[$']for<>; $a+=$_>>1,$b+=$_&1for@_; print$a+($b>>2),$/