$<.map{gets'-';p scan(/\*(?=.{39}\* \*)/m).size}