sub HR { print "-" x ( $_[0] ? $_[0] : 79 ) ."\n"; }