File standardInput contents removeAt(-1)splitNoEmpties("-")map(do(n:=0 for(i,0,327,at(i)<42or at(i+40)<42or at(i+42)<42or n=n+1) n println))