(while(= i 0 o(obj #\V5 #\X10 #\L50 #\C100 #\D500 #\M1000)l(readline))(prn:sum[if(<(= n(o _ 1))(o((++ l)(++ i))0))-.n n]l))