<>;s#.#$y+=$-=($x-=$&.!!$&)+!$&-$y#ger,print$y+y/+//for<>