20{(%stdin)(r)file =string readline pop dup()ne{cvx exec count 0 exch{count
1 sub{1 index sub count 1 roll}repeat pop}repeat neg =}if}repeat