print '-' x $length;