$%+=/S/?!++$,:$,for<>=~/S|ing/g;print$%