(let1 n 0(port-map(rec,x(if(eq?'= x)(print(dec! n))(inc! n)))read))