(= a(readline)x -1)(map[if(is #\_ _)(pr(a(++ x)))pr._](drain:readc))