(port-fold(rec(_ i r)((if(eq?'= i)(if(print r)-)+)r 1))-1 read)