local $, = ' ';
print +('-') x $length,"\n";