Handle multi-letter words and multiple command-line arguments.

Fall back to 80 columns if `tput cols` fails.

hr

@@ -22,29 +22,24 @@
 # CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 
+columns="$(tput cols)"
+if [[ "$columns" -lt 0 ]] ; then
+    columns=80
+fi
+
 function hr {
-    space_character="$1"
+    word="$1"
     line=''
-    columns="$(tput cols)"
-
-    for (( i=1; i<columns; i++ ))
-    do
-        line+="${space_character}"
+    while [[ ${#line} -lt $columns ]]; do
+        line="$line$word"
     done
-
-    echo "$line"
+    echo "${line:0:$columns}"
 }
 
-
-if [[ -n "$1" ]]; then
-    space_string="$1"
-    string_size=${#space_string};
-
-    for (( char_index=0; char_index<${string_size}; char_index++ ))
-    do
-        hr "${space_string:char_index:1}"
-    done
-else
+if [[ $# = 0 ]]; then
     hr "="
+else
+    for word in "$@" ; do
+        hr "$word"
+    done
 fi
-