program define hyphens local options "LINES(integer 1)" parse "`*'" local j = 1 while `j' <= `lines' { display "--------" local j = `j' + 1 } end