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