[function ilkharf]
var.args <strarg <args>>
for 1 16
if (strmatch('<args>','a'))
var.ilkharf A
elseif (strmatch('<args>','b'))
var.ilkharf B
elseif (strmatch('<args>','c'))
var.ilkharf C
elseif (strmatch('<args>','d'))
var.ilkharf D
elseif (strmatch('<args>','e'))
var.ilkharf E
elseif (strmatch('<args>','f'))
var.ilkharf F
elseif (strmatch('<args>','g'))
var.ilkharf G
elseif (strmatch('<args>','h'))
var.ilkharf H
elseif (strmatch('<args>','i'))
var.ilkharf I
elseif (strmatch('<args>','j'))
var.ilkharf J
elseif (strmatch('<args>','k'))
var.ilkharf K
elseif (strmatch('<args>','l'))
var.ilkharf L
elseif (strmatch('<args>','m'))
var.ilkharf M
elseif (strmatch('<args>','n'))
var.ilkharf N
elseif (strmatch('<args>','o'))
var.ilkharf O
elseif (strmatch('<args>','p'))
var.ilkharf P
elseif (strmatch('<args>','r'))
var.ilkharf R
elseif (strmatch('<args>','s'))
var.ilkharf S
elseif (strmatch('<args>','t'))
var.ilkharf T
elseif (strmatch('<args>','u'))
var.ilkharf U
elseif (strmatch('<args>','v'))
var.ilkharf V
elseif (strmatch('<args>','y'))
var.ilkharf Y
elseif (strmatch('<args>','z'))
var.ilkharf Z
elseif (strmatch('<args>','w'))
var.ilkharf W
elseif (strmatch('<args>','x'))
var.ilkharf X
elseif (strmatch('<args>','q'))
var.ilkharf Q
elseif (strmatch('<args>',''))
var.ilkharf <args>
else
var.ilkharf <args>
endif
[function rename]
name <strarg <name>>
for 1 16
if (strmatch('<strsub <eval <local._for>> 1 <name>>','a'))
try var.name<eval <local._for>> a
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','b'))
try var.name<eval <local._for>> b
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','c'))
try var.name<eval <local._for>> c
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','d'))
try var.name<eval <local._for>> d
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','e'))
try var.name<eval <local._for>> e
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','f'))
try var.name<eval <local._for>> f
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','g'))
try var.name<eval <local._for>> g
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','h'))
try var.name<eval <local._for>> h
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','i'))
try var.name<eval <local._for>> i
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','j'))
try var.name<eval <local._for>> j
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','k'))
try var.name<eval <local._for>> k
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','l'))
try var.name<eval <local._for>> l
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','m'))
try var.name<eval <local._for>> m
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','n'))
try var.name<eval <local._for>> n
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','o'))
try var.name<eval <local._for>> o
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','p'))
try var.name<eval <local._for>> p
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','r'))
try var.name<eval <local._for>> r
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','s'))
try var.name<eval <local._for>> s
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','t'))
try var.name<eval <local._for>> t
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','u'))
try var.name<eval <local._for>> u
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','v'))
try var.name<eval <local._for>> v
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','y'))
try var.name<eval <local._for>> y
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','z'))
try var.name<eval <local._for>> z
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','w'))
try var.name<eval <local._for>> w
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','x'))
try var.name<eval <local._for>> x
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>','q'))
try var.name<eval <local._for>> q
elseif (strmatch('<strsub <eval <local._for>> 1 <name>>',''))
try var.name<eval <local._for>>
var.namesinir <eval <local._for>>
else
try var.name<eval <local._for>>
endif
endfor
ilkharf <strsub 0 1 <name>>
var.name0 <var.ilkharf>
name <var.name0><var.name1><var.name2><var.name3><var.name4><var.name5><var.name6><var.name7><var.name8><var.name9><var.name10><var.name11><var.name12><var.name13><var.name14><var.name15><var.name16><var.name17>
name <strsub 0 <eval <var.namesinir>> <name>>
name <strarg <name>>
for 0 16
try var.name<eval <local._for>>
endfor