read -d. s t n
for((;n--;)){ s+=_$t;}
echo $s