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