+while {[regexp {^\-} [set arg [lindex $argv $ai]]]} {
+ incr ai
+ switch -exact -- $arg {
+ -- { break }
+ --pirate { set pirate [string totitle [nextarg]] }
+ --ocean { set ocean [string totitle [nextarg]] }
+ --clipboard-file { set clipboard_file [nextarg] }
+ --notes { set notes_loc [nextarg] }
+ default { badusage "unknown option $arg" }
+ }
+}
+set argv [lrange $argv $ai end]
+if {[llength $argv]} { badusage "non-option args not allowed" }
+