#!perl -nl
($a,$b,$c)=split":";map{print$b;$b+=0|$b*$c/100}1..$a;