p$<.read.scan(/\*/).size