$x=0;map{/i/&&$x++;/d/&&$x!=0&&$x--;/o/&&print"$x\n";$x*=$x!=16&&$x if/s/}<>