(apply(rec(_ n m r)(dotimes'n(print m)(inc! m(floor(* m r 1/100)))))(map x->number(string-split(read-line)#\:)))