"keepone" "Extract One Segment Parsing"
"Exec" % "src-string token skip --> keep1"
'1 starse'
newdef

"starse" "Parse Starting From First Character"
"Exec" % "src-string token skip keep --> [ keep1 ... keepn ]"
'1 parse'
newdef

"false)(" "Pop Top of Stack Replace With False"
"Exec" % " top-item --> false"
'pop false'
newdef

"keepfirst" "Parse Yielding the First Segment"
"Exec" % "src-string token --> first-seg"
'0 keepone'
newdef

"jsunesc=;" "Unescape Value Assign to Js Variable Squoted"
"Exec" % "js-var-dest js-value --> js-assign-line"
'squoter jsvunesc=;'
newdef

"jsvunesc=;" "Unescape Js Variable or Value Assign to Js Variable"
"Exec" % "js-var-dest js-var-src --> js-assign-line"
'jsunesc= &";"'
newdef

"jsunesc=" "Unescape Js Value Assign to Js Variable"
"Exec" % "js-var-dest js-var-src --> js-assign-line"
'^"unescape(" &")" ^"=" &'
newdef

"rollupone" "Roll One Stack Item to Top of Stack"
"Exec" % "[ ... nth ...] n --> [ ... ...] nth-item"
'-1 roll'
newdef

"pre2zero" "Pad to Two Digits With Leading Zero If Needed"
"Exec" % "number --> two-digit-number"
'2 prezero'
newdef

"copy2" "Copy the Top Two Stack Items"
"Exec" % "a b --> a b a b"
'2 copy'
newdef

"replspc" "Replace All With Spaces"
"Exec" % "src-text token --> adj-src-text"
'" " replall'
newdef

"folder^" "Create Folder and Prefix"
"Exec" % "filename path-spec --> full-path"
"folder ^"
newdef

"writext" "Add Text Extension and Write"
"Exec" % "data filespec -->"
"text write"
newdef

"prezero&" "Pad With Leading Zeros and Concatenate"
"Exec" % "str zeros --> adj-str"
'prezero &'
newdef