#!perl
$p='-';map$p.=$"x$p=~y///c.$p,1..pop;print"$p
"