#!/usr/local/bin/wermit
#
# C-Kermit function exerciser...
# Calls many functions with many combinations of legal and illegal
# and/or missing or too many arguments.
#
echo
def aaa
def bbb { some text }
def \%t bbb
def \%a I like \%b
def \%b pizza
def \%n 65
def \%m \%n+1
def \%c abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
def \%d ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
def lower abcdefghijklmnopqrstuvwxyz
def letters abcdefghijklmnopqrstuvwxyz
def digits 0123456789
asg alphanum \m(letters)\m(digits)

; make a long string

asg \%l \frepeat(x,2000) ; long
asg \%x \frepeat(z,8192) ; way too long

echo \\%a is defined as "\fcontents(\%a)"
echo \\%b is defined as "\fcontents(\%b)"
echo \fliteral(\%a) = "\%a"
ec
ec \\fliteral() = "\fliteral()"
ec \\fliteral(,,,,) = "\fliteral(,,,,)"
ec \\fliteral(\\%l) = "\fliteral(\%l)"
ec \\fliteral(\\%x) = "\fliteral(\%x)"
ec
ec \\fcontents() = "\fcontents()"
ec \\fcontents(aaa) = "\fcontents(aaa)"
ec \\fcontents(bbb) = "\fcontents(bbb)"
ec \\fcontents(,,,,) = "\fcontents(,,,,)"
ec \\fcontents(\\%l) = "\fcontents(\%l)"
ec \\fcontents(\\%x) = "\fcontents(\%x)"
ec
ec \\fdefinition() = "\fdefinition()"
ec \\fdefinition(aaa) = "\fdefinition(aaa)"
ec \\fdefinition(bbb) = "\fdefinition(bbb)"
ec \\fdefinition(,,,,) = "\fdefinition(,,,,)"
ec \\fdefinition(\\%l) = "\fdefinition(\%l)"
ec \\fdefinition(\\%x) = "\fdefinition(\%x)"
ec \\fdefinition(\\%t) = "\fdefinition(\%t)"
ec
ec \\m() = "\m()"
ec \\m(aaa) = "\m(aaa)"
ec \\m(bbb) = "\m(bbb)"
ec \\m(,,,,) = "\m(,,,,)"
ec \\m(\\%l) = "\m(\%l)"
ec \\m(\\%x) = "\m(\%x)"
ec \\m(\\%t) = "\m(\%t)"
ec
ec \\fchar() = "\fchar()"
ec \\fchar(,) = "\fchar(,)"
ec \\fchar(,,,,,,,,,,,,,,,,,,,) = "\fchar(,,,,,,,,,,,,,,,,,,,)"
ec \\fchar(aaa) = "\fchar(aaa)"
ec \\fchar(bbb) = "\fchar(bbb)"
ec \\fchar(\\%l) = "\fchar(\%l)"
ec \\fchar(\\%x) = "\fchar(\%x)"
ec \\fchar(\\%t) = "\fchar(\%t)"
ec \\fchar(33) = "\fchar(33)"
ec \\fchar(33 + 33) = "\fchar(33 + 33)"
ec \\fchar((34 + 34) / 2 + 1) = "\fchar((34 + 34) / 2 + 1)"
ec \\fchar( 33 ) = "\fchar( 33 )"
ec \\fchar( 33 , 34, 35,36 ) = "\fchar( 33 , 34, 35,36)"
ec \\fchar(255) = "\fchar(255)"
ec \\fchar(320) = "\fchar(320)"
ec \\fchar(\\%n) = "\fchar(\%n)"
ec \\fchar(\\%m) = "\fchar(\%m)"
ec
ec \\fcode() = "\fcode()"
ec \\fcode(,) = "\fcode(,)"
ec \\fcode(,,,,,,,,,,,,,,,,,,,) = "\fcode(,,,,,,,,,,,,,,,,,,,)"
ec \\fcode(a) = "\fcode(a)"
ec \\fcode(a,) = "\fcode(a,)"
ec \\fcode(,a) = "\fcode(,a)"
ec \\fcode(aaa) = "\fcode(aaa)"
ec \\fcode(bbb) = "\fcode(bbb)"
ec \\fcode(\\%l) = "\fcode(\%l)"
ec \\fcode(\\%x) = "\fcode(\%x)"
ec \\fcode(\\%t) = "\fcode(\%t)"
ec \\fcode(\\%n) = "\fcode(\%n)"
ec \\fcode(\\%m) = "\fcode(\%m)"
ec
ec \\fbreak() = "\fbreak()"
ec \\fbreak(,) = "\fbreak(,)"
ec \\fbreak(,,,,,,,,) = "\fbreak(,,,,,,,,)"
set case on
echo WITH CASE ON
ec \\fbreak(\\%c,XYZM) = "\fbreak(\%c,MXYZ)"
set case off
echo WITH CASE OFF
ec \\fbreak(\\%c,XYZM) = "\fbreak(\%c,MXYZ)"
ec \\fbreak(\\%c) = "\fbreak(\%c)"
ec \\fbreak(\\%c,) = "\fbreak(\%c,)"
ec \\fbreak(,\\%c) = "\fbreak(,\%c)"
ec \\fbreak(,\\%c,) = "\fbreak(,\%c,)"
ec \\fbreak({\\%c},XYZM) = "\fbreak({\%c},MXYZ)"
ec \\fbreak({ \\%c },XYZM) = "\fbreak({ \%c },MXYZ)"
ec \\fbreak(\\%c,{XYZM}) = "\fbreak(\%c,{MXYZ})"
ec \\fbreak(\\%c,{ XYZM }) = "\fbreak(\%c,{ MXYZ })"
ec \\fbreak({ \\%c },{ XYZM }) = "\fbreak({ \%c },{ MXYZ })"
ec \\fbreak(abcxmnoxzzz,x) = "\fbreak(abcxmnoxzzz,x)"
ec \\fbreak(abcxmnoxzzz,x,) = "\fbreak(abcxmnoxzzz,x,)"
ec \\fbreak(abcxmnoxzzz,x,0) = "\fbreak(abcxmnoxzzz,x,0)"
ec \\fbreak(abcxmnoxzzz,x,1) = "\fbreak(abcxmnoxzzz,x,1)"
ec \\fbreak(abcxmnoxzzz,x,2) = "\fbreak(abcxmnoxzzz,x,2)"
ec \\fbreak(abcxmnoxzzz,x,3) = "\fbreak(abcxmnoxzzz,x,3)"
ec \\fbreak(abcxmnoxzzz,x,4) = "\fbreak(abcxmnoxzzz,x,4)"
ec \\fbreak(abcxmnoxzzz,x,8) = "\fbreak(abcxmnoxzzz,x,8)"
ec \\fbreak(abcxmnoxzzz,x,999999) = "\fbreak(abcxmnoxzzz,x,999999)"
ec
ec \\fspan() = "\fspan()"
ec \\fspan(,) = "\fspan(,)"
ec \\fspan(,,,,,,,,) = "\fspan(,,,,,,,,)"
set case on
echo WITH CASE ON
ec \\fspan(\\%c,\\m(letters)) = "\fspan(\%c,\m(letters))"
set case off
echo WITH CASE OFF
ec \\fspan(\\%c,\\m(letters)) = "\fspan(\%c,\m(letters))"
ec \\fspan(\\m(alphanum),\\m(alphanum)) = "\fspan(\m(alphanum),\m(alphanum))"
ec \\fspan(\\m(alphanum),\\m(letters)) = "\fspan(\m(alphanum),\m(letters))"
ec \\fspan(\\m(alphanum),\\m(digits)) = "\fspan(\m(alphanum),\m(digits))"
ec \\fspan(\\%c) = "\fspan(\%c)"
ec \\fspan(\\%c,) = "\fspan(\%c,)"
ec \\fspan(,\\%c) = "\fspan(,\%c)"
ec \\fspan(,\\%c,) = "\fspan(,\%c,)"
ec \\fspan({\\%c},\\m(letters)) = "\fspan({\%c},\m(letters))"
ec \\fspan({ \\%c },\\m(letters)) = "\fspan({ \%c },\m(letters))"
ec \\fspan(\\%c,{\\m(letters)}) = "\fspan(\%c,{\m(letters)})"
ec \\fspan(\\%c,{ \\m(letters) }) = "\fspan(\%c,{ \m(letters) })"
ec \\fspan({ \\%c },{ \\m(letters) }) = "\fspan({ \%c },{ \m(letters) })"
ec \\fspan(abcxabcxabc,bca) = "\fspan(abcxabcxabc,bca)"
ec \\fspan(abcxabcxabc,bca,-1) = "\fspan(abcxabcxabc,bca,-1)"
ec \\fspan(abcxabcxabc,bca,0) = "\fspan(abcxabcxabc,bca,0)"
ec \\fspan(abcxabcxabc,bca,1) = "\fspan(abcxabcxabc,bca,1)"
ec \\fspan(abcxabcxabc,bca,2) = "\fspan(abcxabcxabc,bca,2)"
ec \\fspan(abcxabcxabc,bca,3) = "\fspan(abcxabcxabc,bca,3)"
ec \\fspan(abcxabcxabc,bca,4) = "\fspan(abcxabcxabc,bca,4)"
ec \\fspan(abcxabcxabc,bca,5) = "\fspan(abcxabcxabc,bca,5)"
ec \\fspan(abcxabcxabc,bca,999999) = "\fspan(abcxabcxabc,bca,999999)"
ec
ec
ec \\fverify() = "\fverify()"
ec \\fverify(,) = "\fverify(,)"
ec \\fverify(,,,,,,,,) = "\fverify(,,,,,,,,)"
set case on
ec \\%c = "\%c"
echo WITH CASE ON
ec \\fverify(ABCM,\\%c) = "\fverify(ABCM,\%c)"
set case off
echo WITH CASE OFF
ec \\fverify(ABCM,\\%c) = "\fverify(ABCM,\%c)"
ec \\fverify(ABCM,\\%c,) = "\fverify(ABCM,\%c,)"
ec \\fverify(ABCM,\\%c,,) = "\fverify(ABCM,\%c,,)"
ec \\fverify(ABCM,,3) = "\fverify(ABCM,,3)"
ec \\fverify(ABCM,,9999999) = "\fverify(ABCM,,9999999)"
ec \\fverify(\\%c) = "\fverify(\%c)"
ec \\fverify(\\%c,) = "\fverify(\%c,)"
ec \\fverify(,\\%c) = "\fverify(,\%c)"
ec \\fverify(,\\%c,) = "\fverify(,\%c,)"
ec \\fverify(ABCM,{\\%c}) = "\fverify(ABCM,{\%c})"
ec \\fverify(ABCM,{ \\%c }) = "\fverify(ABCM,{ \%c })"
ec \\fverify({ABCM},\\%c) = "\fverify({ABCM},\%c)"
ec \\fverify({ ABCM },\\%c) = "\fverify({ ABCM },\%c)"
ec \\fverify({ ABCM },{ \\%c }) = "\fverify({ ABCM },{ \%c })"
echo \\%d = "\%d"
set case on
echo WITH CASE ON
ec \\fverify(ABCM,\\%d,25) = "\fverify(ABCM,\%d,25)"
ec \\fverify(ABCM,\\%d,26) = "\fverify(ABCM,\%d,26)"
ec \\fverify(ABCM,\\%d,27) = "\fverify(ABCM,\%d,27)"
set case off
echo WITH CASE OFF
ec \\fverify(ABCM,\\%d,25) = "\fverify(ABCM,\%d,25)"
ec \\fverify(ABCM,\\%d,26) = "\fverify(ABCM,\%d,26)"
ec \\fverify(ABCM,\\%d,27) = "\fverify(ABCM,\%d,27)"
ec \\fverify(ABCM,ABABABXABAB) = "\fverify(ABCM,ABABABXABAB)"
ec \\fverify(ABCM,ABABABXABAB,6) = "\fverify(ABCM,ABABABXABAB,6)"
ec \\fverify(ABCM,ABABABXABAB,7) = "\fverify(ABCM,ABABABXABAB,7)"
ec \\fverify(ABCM,ABABABXABAB,8) = "\fverify(ABCM,ABABABXABAB,8)"
ec \\fverify(ABCM,ABABABXABAB,0) = "\fverify(ABCM,ABABABXABAB,0)"
ec \\fverify(ABCM,ABABABXABAB,1) = "\fverify(ABCM,ABABABXABAB,1)"
ec \\fverify(ABCM,ABABABXABAB,-8) = "\fverify(ABCM,ABABABXABAB,-8)"
ec \\fverify(ABCM,ABCM) = "\fverify(ABCM,ABCM)"
ec \\fverify(ABCM,WXYZ) = "\fverify(ABCM,WXYZ)"
ec \\fverify(ABCD,XABCD,0) = "\fverify(ABCD,XABCD,0)"
ec \\fverify(ABCD,XABCD,1) = "\fverify(ABCD,XABCD,1)"
ec \\fverify(ABCD,XABCD,2) = "\fverify(ABCD,XABCD,2)"
ec \\fverify(ABCD,XXABCD,1) = "\fverify(ABCD,XXABCD,1)"
ec \\fverify(ABCD,XXABCD,2) = "\fverify(ABCD,XXABCD,2)"
ec
ec \\fcapitalize() = "\fcapitalize()"
ec \\fcapitalize(,) = "\fcapitalize(,)"
ec \\fcapitalize(,,,,,,) = "\fcapitalize(,,,,,,)"
ec WITH CASE ON
set case on
ec \\fcapitalize(AAAA) = "\fcapitalize(AAAA)"
ec \\fcapitalize(aaaa) = "\fcapitalize(aaaa)"
ec WITH CASE OFF
set case off
ec \\fcapitalize(AAAA) = "\fcapitalize(AAAA)"
ec \\fcapitalize(aaaa) = "\fcapitalize(aaaa)"
ec \\fcapitalize(999aaaa) = "\fcapitalize(999aaaa)"
ec \\fcapitalize({ aaaa }) = "\fcapitalize({ aaaa })"
ec
ec \\fhexify() = "\fhexify()"
ec \\fhexify(,) = "\fhexify(,)"
ec \\fhexify(,,,,,,) = "\fhexify(,,,,,,)"
ec WITH CASE ON
set case on
ec \\fhexify(AAAA) = "\fhexify(AAAA)"
ec \\fhexify(aaaa) = "\fhexify(aaaa)"
ec WITH CASE OFF
set case off
ec \\fhexify(AAAA) = "\fhexify(AAAA)"
ec \\fhexify(aaaa) = "\fhexify(aaaa)"
ec \\fhexify(999aaaa) = "\fhexify(999aaaa)"
ec \\fhexify({ aaaa }) = "\fhexify({ aaaa })"
ec \\fhexify(\\%a) = "\fhexify(\%a)"
; ec \\fhexify(\\%l) = "\fhexify(\%l)"
ec
ec \\funhex(\\fhexify(\\%a)) = "\funhex(\fhexify(\%a))"
ec \\funhex() = "\funhex()"
ec \\funhex(,) = "\funhex(,)"
ec \\funhex(,,,,,,,,,,,,,,,,,,,,,,,,,) = "\funhex(,,,,,,,,,,,,,,,,,,,,,,,,,)"
ec \\funhex(4141414141) = "\funhex(4141414141)"
ec \\funhex(414141414) = "\funhex(414141414)"
ec \\funhex(0000) = "\funhex(0000)"
ec \\funhex(4141004141) = "\funhex(4141004141)"
ec \\funhex(lkjlkjlkjlkjlkj) = "\funhex(lkjlkjlkjlkjlkj)"
ec

:FOO

ec \\findex() = "\findex()"
ec \\findex(,) = "\findex(,)"
ec \\findex(,,) = "\findex(,,)"
ec \\findex(,,,) = "\findex(,,,)"
ec \\findex(ss,Mississippi) = "\findex(ss,Mississippi)"
def \%m Mississippi
asg miss \%m
ec \\findex(ss,\\%m) = "\findex(ss,\%m)"
ec \\findex(ss,\\m(miss)) = "\findex(ss,\m(miss))"
ec \\findex(ss,Mississippi,) = "\findex(ss,Mississippi,)"
ec \\findex(ss,Mississippi,0) = "\findex(ss,Mississippi,0)"
ec \\findex(ss,Mississippi,1) = "\findex(ss,Mississippi,1)"
ec \\findex(ss,Mississippi,2) = "\findex(ss,Mississippi,2)"
ec \\findex(ss,Mississippi,3) = "\findex(ss,Mississippi,3)"
ec \\findex(ss,Mississippi,4) = "\findex(ss,Mississippi,4)"
ec \\findex(ss,Mississippi,5) = "\findex(ss,Mississippi,5)"
ec \\findex(ss,Mississippi,6) = "\findex(ss,Mississippi,6)"
ec \\findex(ss,Mississippi,999999) = "\findex(ss,Mississippi,999999)"
ec \\findex(ss,Mississippi,xxx) = "\findex(ss,Mississippi,xxx)"
ec \\findex(ss,Mississippi,0,xxx) = "\findex(ss,Mississippi,0,xxx)"
ec \\findex(,Mississippi,) = "\findex(,Mississippi,)"
ec \\findex(,Mississippi,1) = "\findex(,Mississippi,1)"
ec \\findex(,Mississippi,-1) = "\findex(,Mississippi,-1)"
ec \\findex(,Mississippi,999999) = "\findex(,Mississippi,999999)"
ec

ec \\frindex() = "\frindex()"
ec \\frindex(,) = "\frindex(,)"
ec \\frindex(,,) = "\frindex(,,)"
ec \\frindex(,,,) = "\frindex(,,,)"

set case on
ec WITH CASE ON
ec \\frindex(SS,Mississippi) = "\frindex(SS,Mississippi)"
ec \\frindex(ss,MISSISSIPPI) = "\frindex(ss,MISSISSIPPI)"
ec \\frindex(ss,Mississippi) = "\frindex(ss,Mississippi)"
set case off
ec WITH CASE OFF
ec \\frindex(SS,Mississippi) = "\frindex(SS,Mississippi)"
ec \\frindex(ss,MISSISSIPPI) = "\frindex(ss,MISSISSIPPI)"
ec \\frindex(SS,MISSISSIPPI) = "\frindex(SS,MISSISSIPPI)"
ec
ec \\frindex(ss,Mississippi) = "\frindex(ss,Mississippi)"
ec \\frindex(ss,Mississippi,) = "\frindex(ss,Mississippi,)"
ec \\frindex(ss,Mississippi,0) = "\frindex(ss,Mississippi,0)"
ec \\frindex(ss,Mississippi,1) = "\frindex(ss,Mississippi,1)"
ec \\frindex(ss,Mississippi,2) = "\frindex(ss,Mississippi,2)"
ec \\frindex(ss,Mississippi,3) = "\frindex(ss,Mississippi,3)"
ec \\frindex(ss,Mississippi,4) = "\frindex(ss,Mississippi,4)"
ec \\frindex(ss,Mississippi,5) = "\frindex(ss,Mississippi,5)"
ec \\frindex(ss,Mississippi,6) = "\frindex(ss,Mississippi,6)"
ec \\frindex(ss,Mississippi,7) = "\frindex(ss,Mississippi,7)"
ec \\frindex(ss,Mississippi,8) = "\frindex(ss,Mississippi,8)"
ec \\frindex(ss,Mississippi,9) = "\frindex(ss,Mississippi,9)"
ec \\frindex(ss,Mississippi,10) = "\frindex(ss,Mississippi,10)"
ec \\frindex(ss,Mississippi,11) = "\frindex(ss,Mississippi,11)"
ec \\frindex(ss,Mississippi,12) = "\frindex(ss,Mississippi,12)"
ec \\frindex(ss,Mississippi,13) = "\frindex(ss,Mississippi,13)"
ec \\frindex(ss,Mississippi,999999) = "\frindex(ss,Mississippi,999999)"
ec \\frindex(ss,Mississippi,xxx) = "\frindex(ss,Mississippi,xxx)"
ec \\frindex(ss,Mississippi,0,xxx) = "\frindex(ss,Mississippi,0,xxx)"
ec \\frindex(,Mississippi,) = "\frindex(,Mississippi,)"
ec \\frindex(,Mississippi,1) = "\frindex(,Mississippi,1)"
ec \\frindex(,Mississippi,-1) = "\frindex(,Mississippi,-1)"
ec \\frindex(,Mississippi,999999) = "\frindex(,Mississippi,999999)"
ec
 
ec \\flength() = "\flength()"
ec \\flength(,) = "\flength(,)"
ec \\flength(,,) = "\flength(,,)"
ec \\flength(,,,,,,,,,,,,) = "\flength(,,,,,,,,,,,,)"
ec \\flength(\\%m) = "\flength(\%m)"
ec \\flength( \\%m ) = "\flength( \%m )"
ec \\flength({ \\%m }) = "\flength({ \%m })"
ec \\flength(\\m(miss)) = "\flength(\m(miss))"
ec \\flength( \\m(miss) ) = "\flength( \m(miss) )"
ec \\flength({ \\m(miss) }) = "\flength({ \m(miss) })"
ec \\flength(\\%m,) = "\flength(\%m,)"
ec \\flength(,\\%m) = "\flength(,\%m)"
ec \\flength(\\%m,) = "\flength(\%m,)"
ec \\flength(,\\%m,) = "\flength(,\%m,)"
ec \\flength(\\%l) = "\flength(\%l)"
ec \\flength(\\%x) = "\flength(\%x)"
ec
ec \\flower() = "\flower()"
ec \\flower( ) = "\flower( )"
ec \\flower({ }) = "\flower({ })"
ec \\flower(\\%c) = "\flower(\%c)"
ec \\flower(\\%c,) = "\flower(\%c,)"
ec \\flower(,\\%c) = "\flower(,\%c)"
ec \\flower({ \\%c }) = "\flower({ \%c })"
ec
ec \\fupper() = "\fupper()"
ec \\fupper( ) = "\fupper( )"
ec \\fupper({ }) = "\fupper({ })"
ec \\fupper(\\%c) = "\fupper(\%c)"
ec \\fupper(\\%c,) = "\fupper(\%c,)"
ec \\fupper(,\\%c) = "\fupper(,\%c)"
ec \\fupper({ \\%c }) = "\fupper({ \%c })"
ec
ec \\flpad() = "\flpad()"
ec \\flpad(,) = "\flpad(,)"
ec \\flpad(,,) = "\flpad(,,)"
ec \\flpad(,,,) = "\flpad(,,,)"
ec \\flpad(,,,,) = "\flpad(,,,,)"
ec \\flpad( ) = "\flpad( )"
ec \\flpad({ }) = "\flpad({ })"
ec \\flpad(\\%c) = "\flpad(\%c)"
ec \\flpad(\\%c,) = "\flpad(\%c,)"
ec \\flpad(,\\%c) = "\flpad(,\%c)"
ec \\flpad({ \\%c }) = "\flpad({ \%c })"
ec \\flpad(,0) = "\flpad(,0)"
ec \\flpad(,-1) = "\flpad(,-1)"
ec \\flpad(,5) = "\flpad(,5)"
ec \\flpad(,5,) = "\flpad(,5,)"
ec \\flpad({ a },5+2) = "\flpad({ a }, 5+2)"
ec \\flpad(\\%c,5) = "\flpad(\%c,5)"
ec \\flpad(,0,X) = "\flpad(,0,X)"
ec \\flpad(,-1,X) = "\flpad(,-1,X)"
ec \\flpad(,5,X) = "\flpad(,5,X)"
ec \\flpad(,5,,X) = "\flpad(,5,,X)"
ec \\flpad({ a },5,X) = "\flpad({ a }, 5,X)"
ec \\flpad(aa,8,XY) = "\flpad(aa,8,XY)"
ec \\flpad(\\%c,999999,XY) = "\flpad(\%c,999999,XY)"
ec
ec \\frpad() = "\frpad()"
ec \\frpad(,) = "\frpad(,)"
ec \\frpad(,,) = "\frpad(,,)"
ec \\frpad(,,,) = "\frpad(,,,)"
ec \\frpad(,,,,) = "\frpad(,,,,)"
ec \\frpad( ) = "\frpad( )"
ec \\frpad({ }) = "\frpad({ })"
ec \\frpad(\\%c) = "\frpad(\%c)"
ec \\frpad(\\%c,) = "\frpad(\%c,)"
ec \\frpad(,\\%c) = "\frpad(,\%c)"
ec \\frpad({ \\%c }) = "\frpad({ \%c })"
ec \\frpad(,0) = "\frpad(,0)"
ec \\frpad(,-1) = "\frpad(,-1)"
ec \\frpad(,5) = "\frpad(,5)"
ec \\frpad(,5,) = "\frpad(,5,)"
ec \\frpad({ a },5) = "\frpad({ a }, 5)"
ec \\frpad(\\%c,5) = "\frpad(\%c,5)"
ec \\frpad(,0,X) = "\frpad(,0,X)"
ec \\frpad(,-1,X) = "\frpad(,-1,X)"
ec \\frpad(,5,X) = "\frpad(,5,X)"
ec \\frpad(,5,,X) = "\frpad(,5,,X)"
ec \\frpad({ a },5,X) = "\frpad({ a }, 5,X)"
ec \\frpad(aa,8,XY) = "\frpad(aa,8,XY)"
ec \\frpad(\\%c,999999,XY) = "\frpad(\%c,999999,XY)"
ec
ec \\fltrim() = "\fltrim()"
ec \\fltrim(,) = "\fltrim(,)"
ec \\fltrim(,,) = "\fltrim(,,)"
ec \\fltrim(,,,) = "\fltrim(,,,)"
ec \\fltrim(,,,,) = "\fltrim(,,,,)"
ec \\fltrim( ) = "\fltrim( )"
ec \\fltrim({ }) = "\fltrim({ })"
ec \\fltrim(\\%c) = "\fltrim(\%c)"
ec \\fltrim(\\%c,) = "\fltrim(\%c,)"
ec \\fltrim(,\\%c) = "\fltrim(,\%c)"
ec \\fltrim({ \\%c }) = "\fltrim({ \%c })"
ec \\fltrim(,0) = "\fltrim(,0)"
ec \\fltrim(,-1) = "\fltrim(,-1)"
ec \\fltrim(,5) = "\fltrim(,5)"
ec \\fltrim(,5,) = "\fltrim(,5,)"
ec \\fltrim({ a }) = "\fltrim({ a })"
set case on
ec WITH CASE ON
ec \\fltrim(\\%c,abc) = "\fltrim(\%c,abc)"
ec \\fltrim(\\%c,ABC) = "\fltrim(\%c,ABC)"
set case off
ec WITH CASE OFF
ec \\fltrim(\\%c,abc) = "\fltrim(\%c,abc)"
ec \\fltrim(\\%c,ABC) = "\fltrim(\%c,ABC)"
ec \\fltrim(\\%x,z) = "\fltrim(\%x,z)"
ec
ec \\ftrim() = "\ftrim()"
ec \\ftrim(,) = "\ftrim(,)"
ec \\ftrim(,,) = "\ftrim(,,)"
ec \\ftrim(,,,) = "\ftrim(,,,)"
ec \\ftrim(,,,,) = "\ftrim(,,,,)"
ec \\ftrim( ) = "\ftrim( )"
ec \\ftrim({ }) = "\ftrim({ })"
ec \\ftrim(\\%c) = "\ftrim(\%c)"
ec \\ftrim(\\%c,) = "\ftrim(\%c,)"
ec \\ftrim(,\\%c) = "\ftrim(,\%c)"
ec \\ftrim({ \\%c }) = "\ftrim({ \%c })"
ec \\ftrim(,0) = "\ftrim(,0)"
ec \\ftrim(,-1) = "\ftrim(,-1)"
ec \\ftrim(,5) = "\ftrim(,5)"
ec \\ftrim(,5,) = "\ftrim(,5,)"
ec \\ftrim({ a }) = "\ftrim({ a })"
set case on
ec WITH CASE ON
ec \\ftrim(\\%c,xyz) = "\ftrim(\%c,xyz)"
ec \\ftrim(\\%c,XYZ) = "\ftrim(\%c,XYZ)"
ec \\ftrim(\\%c,ABC) = "\ftrim(\%c,ABC)"
set case off
ec WITH CASE OFF
ec \\ftrim(\\%c,xyz) = "\ftrim(\%c,xyz)"
ec \\ftrim(\\%c,XYZ) = "\ftrim(\%c,XYZ)"
ec \\ftrim(\\%c,ABC) = "\ftrim(\%c,ABC)"
ec \\ftrim(\\%x,z) = "\ftrim(\%x,z)"
ec
ec \\frepeat() = "\frepeat()"
ec \\frepeat(,) = "\frepeat(,)"
ec \\frepeat(,,) = "\frepeat(,,)"
ec \\frepeat(A) = "\frepeat(A)"
ec \\frepeat(A,) = "\frepeat(A,)"
ec \\frepeat(,8) = "\frepeat(,8)"
ec \\frepeat(A,-1) = "\frepeat(A,-1)"
ec \\frepeat(A,0) = "\frepeat(A,0)"
ec \\frepeat(A,1) = "\frepeat(A,1)"
ec \\frepeat(A,2) = "\frepeat(A,2)"
ec \\frepeat(A,3) = "\frepeat(A,3)"
ec \\frepeat(A,(3)) = "\frepeat(A,(3))"
ec \\frepeat(A,(((3)))) = "\frepeat(A,(((3))))"
ec \\frepeat(A,{3}) = "\frepeat(A,{3})"
ec \\frepeat(A,3+3) = "\frepeat(A,3+3)"
ec \\frepeat(A,(3+3)/2) = "\frepeat(A,(3+3)/2)"
ec \\frepeat(A,x) = "\frepeat(A,x)"
def \%a A
def \%b 4
ec \\%b = \%b
ec \\frepeat(\\%a,\\%b) = "\frepeat(\%a,\%b)"
ec \\frepeat(\\%a,\\%b+2) = "\frepeat(\%a,\%b+2)"
def \%b (4+4)
ec \\%b = \%b
ec \\frepeat(\\%a,\\%b) = "\frepeat(\%a,\%b)"
ec \\frepeat({ },\\%b) = "\frepeat({ },\%b)"

:REPLACE
ec
ec \\freplace() = "\freplace()"
ec \\freplace(,) = "\freplace(,)"
ec \\freplace(,,) = "\freplace(,,)"
ec \\freplace(,,,,,,,,,,) = "\freplace(,,,,,,,,,,)"
ec \\freplace(A) = "\freplace(A)"
ec \\freplace(A,) = "\freplace(A,)"
ec \\freplace(,A) = "\freplace(,A)"
ec \\freplace(A,B) = "\freplace(A,B)"
ec \\freplace(A,B,) = "\freplace(A,B,)"
ec \\freplace(,A,B) = "\freplace(,A,B)"
ec \\freplace(A,A) = "\freplace(A,A)"
ec \\freplace(A,A,) = "\freplace(A,A,)"
ec \\freplace(,A,A) = "\freplace(,A,A)"
ec \\freplace(,A,B,) = "\freplace(,A,B,)"
set case on
ec WITH CASE ON
ec \\freplace(Aa,A,B) = "\freplace(Aa,A,B)"
ec \\freplace(Aa,a,B) = "\freplace(Aa,a,B)"
ec \\freplace(Oofa,o,oo) = "\freplace(Oofa,o,oo)"
ec \\freplace(Oofa,oo,o) = "\freplace(Oofa,oo,o)"
set case off
ec WITH CASE OFF
ec \\freplace(Aa,A,B) = "\freplace(Aa,A,B)"
ec \\freplace(Aa,a,B) = "\freplace(Aa,a,B)"
ec \\freplace(Oofa,o,oo) = "\freplace(Oofa,o,oo)"
ec \\freplace(Oofa,oo,o) = "\freplace(Oofa,oo,o)"
ec \\freplace(Oofa,oo,{  }) = "\freplace(Oofa,oo,{  })"
ec
ec \\freverse() = "\freverse()"
ec \\freverse(,) = "\freverse(,)"
ec \\freverse(,,) = "\freverse(,,)"
ec \\freverse(,,,,,,,,,,) = "\freverse(,,,,,,,,,,)"
ec \\freverse(A) = "\freverse(A)"
ec \\freverse(A,) = "\freverse(A,)"
ec \\freverse(,A) = "\freverse(,A)"
ec \\freverse(A,B) = "\freverse(A,B)"
ec \\freverse(A,B,) = "\freverse(A,B,)"
ec \\freverse(,A,B) = "\freverse(,A,B)"
ec \\freverse(A,A) = "\freverse(A,A)"
ec \\freverse(A,A,) = "\freverse(A,A,)"
ec \\freverse(,A,A) = "\freverse(,A,A)"
ec \\freverse(,A,B,) = "\freverse(,A,B,)"
def \%c abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
ec \\%c = "\%c"
ec \\freverse(\\%c) = "\freverse(\%c)"
ec \\freverse(\\%c,) = "\freverse(\%c,)"
ec \\freverse({ \\%c }) = "\freverse({ \%c })"
ec \\freverse(\\freverse(\\%c)) = "\freverse(\freverse(\%c))"
ec
ec \\fright() = "\fright()"
ec \\fright(,) = "\fright(,)"
ec \\fright(,,) = "\fright(,,)"
ec \\fright(,,,,,,,,,,) = "\fright(,,,,,,,,,,)"
ec \\fright(A) = "\fright(A)"
ec \\fright(A,) = "\fright(A,)"
ec \\fright(,A,) = "\fright(,A,)"
ec \\fright(,3,) = "\fright(,3,)"
ec \\fright({A}) = "\fright({A})"
ec \\fright({ A }) = "\fright({ A })"
def \%a ABCDEFGHIJKLMNOP
ec \\%a = "\%a"
ec \\fright(\\%a) = "\fright(\%a)"
ec \\fright({\\%a}) = "\fright({\%a})"
ec \\fright({ \\%a }) = "\fright({ \%a })"
ec \\fright(\\%a) = "\fright(\%a)"
ec \\fright(\\%a,-1) = "\fright(\%a,-1)"
ec \\fright(\\%a,0) = "\fright(\%a,0)"
ec \\fright(\\%a,1) = "\fright(\%a,1)"
ec \\fright(\\%a,2) = "\fright(\%a,2)"
ec \\fright(\\%a,3) = "\fright(\%a,3)"
ec \\fright(\\%a,4) = "\fright(\%a,4)"
ec \\fright(\\%a,5) = "\fright(\%a,5)"
ec \\fright(\\%a,8) = "\fright(\%a,8)"
ec \\fright(\\%a,999999) = "\fright(\%a,999999)"
ec \\fright(\\%a,99999999999) = "\fright(\%a,99999999999)"
ec \\fright(,999999) = "\fright(,999999)"
def \%n 2
def \%b (4+4+4)/\%n
ec \\%b = "\%b"
ec \\fright(\\%a,\\%b) = "\fright(\%a,\%b)"
ec
ec \\fsubstring() = "\fsubstring()"
ec \\fsubstring(,) = "\fsubstring(,)"
ec \\fsubstring(,,) = "\fsubstring(,,)"
ec \\fsubstring(,,,,,,,,,,) = "\fsubstring(,,,,,,,,,,)"
ec \\fsubstring(A) = "\fsubstring(A)"
ec \\fsubstring(A,) = "\fsubstring(A,)"
ec \\fsubstring(,A,) = "\fsubstring(,A,)"
ec \\fsubstring(,3,) = "\fsubstring(,3,)"
def \%a ABCDEFGHIJKLMNOP
ec \\%a = "\%a"
ec \\fsubstring(,\\%a,) = "\fsubstring(,\%a,)"
ec \\fsubstring(\\%a) = "\fsubstring(\%a)"
ec \\fsubstring(\\%a,) = "\fsubstring(\%a,)"
ec \\fsubstring(\\%a,-1) = "\fsubstring(\%a,-1)"
ec \\fsubstring(\\%a,0) = "\fsubstring(\%a,0)"
ec \\fsubstring(\\%a,1) = "\fsubstring(\%a,1)"
ec \\fsubstring(\\%a,2) = "\fsubstring(\%a,2)"
ec \\fsubstring(\\%a,3) = "\fsubstring(\%a,3)"
ec \\fsubstring(\\%a,4) = "\fsubstring(\%a,4)"
ec \\fsubstring(\\%a,5) = "\fsubstring(\%a,5)"
ec \\fsubstring(\\%a,8) = "\fsubstring(\%a,8)"
ec \\fsubstring(\\%a,22) = "\fsubstring(\%a,22)"
ec \\fsubstring(\\%a,99999999) = "\fsubstring(\%a,999999999)"
ec \\fsubstring(\\%a,xxx) = "\fsubstring(\%a,xxx)"
ec \\fsubstring(\\%a,3,-1) = "\fsubstring(\%a,3,-1)"
ec \\fsubstring(\\%a,3,0) = "\fsubstring(\%a,3,0)"
ec \\fsubstring(\\%a,3,1) = "\fsubstring(\%a,3,1)"
ec \\fsubstring(\\%a,3,2) = "\fsubstring(\%a,3,2)"
ec \\fsubstring(\\%a,3,3) = "\fsubstring(\%a,3,3)"
ec \\fsubstring(\\%a,3,4) = "\fsubstring(\%a,3,4)"
ec \\fsubstring(\\%a,3,5) = "\fsubstring(\%a,3,5)"
ec \\fsubstring(\\%a,3,8) = "\fsubstring(\%a,3,8)"
ec \\fsubstring(\\%a,3,22) = "\fsubstring(\%a,3,22)"
ec \\fsubstring(\\%a,3,99999999) = "\fsubstring(\%a,3,99999999)"
ec \\fsubstring(\\%a,3,x) = "\fsubstring(\%a,3,x)"
ec \\fsubstring({\\%a},3,4) = "\fsubstring({\%a},3,4)"
ec \\fsubstring({ \\%a },3,4) = "\fsubstring({ \%a },3,4)"
ec \\fsubstring({  \\%a  },3,4) = "\fsubstring({  \%a  },3,4)"
ec \\fsubstring({{  \\%a  }},3,4) = "\fsubstring({{ \%a }},3,4)"
ec \\fsubstring({ \\%a },{3},{4}) = "\fsubstring({ \%a },{3},{4})"
ec \\fsubstring({ \\%a },(3),(4)) = "\fsubstring({ \%a },(3),(4))"
ec \\fsubstring({ \\%a },(3),(2+1+1)) = "\fsubstring({ \%a },(3),(2+1+1))"
ec \\fsubstring(,(3),(2+1+1)) = "\fsubstring(,(3),(2+1+1))"
ec \\fsubstring(\\%a,,8) = "\fsubstring(\%a,,8)"
:ARITH
ec
ec \\fmax() = "\fmax()"
ec \\fmax(,) = "\fmax(,)"
ec \\fmax(,,) = "\fmax(,,)"
ec \\fmax(,,,,,,,,,,) = "\fmax(,,,,,,,,,,)"
ec \\fmax(A) = "\fmax(A)"
ec \\fmax(A,) = "\fmax(A,)"
ec \\fmax(,A,) = "\fmax(,A,)"
ec \\fmax(,3,) = "\fmax(,3,)"
ec \\fmax({A}) = "\fmax({A})"
ec \\fmax(0,0) = "\fmax(0,0)"
ec \\fmax(1,0) = "\fmax(1,0)"
ec \\fmax(0,1) = "\fmax(0,1)"
ec \\fmax(1,1) = "\fmax(1,1)"
ec \\fmax(0,1,2) = "\fmax(0,1,2)"
ec \\fmax(,1) = "\fmax(,1)"
ec \\fmax(99999999,1) = "\fmax(99999999,1)"
ec \\fmax(x,1) = "\fmax(x,1)"
ec \\fmax(7-6,16/8) = "\fmax(7-6,16/8)"
def \%a 4+4+4+4
ec \\fmax(\\%a,-(\\%a)) = "\fmax(\%a,-(\%a))"
ec \\fmax(((((((\\%a)))))),-(\\%a)) = "\fmax(((((((\%a)))))),-(\%a))"
ec
ec \\fmin() = "\fmin()"
ec \\fmin(,) = "\fmin(,)"
ec \\fmin(,,) = "\fmin(,,)"
ec \\fmin(,,,,,,,,,,) = "\fmin(,,,,,,,,,,)"
ec \\fmin(A) = "\fmin(A)"
ec \\fmin(A,) = "\fmin(A,)"
ec \\fmin(,A,) = "\fmin(,A,)"
ec \\fmin(,3,) = "\fmin(,3,)"
ec \\fmin({A}) = "\fmin({A})"
ec \\fmin(0,0) = "\fmin(0,0)"
ec \\fmin(1,0) = "\fmin(1,0)"
ec \\fmin(0,1) = "\fmin(0,1)"
ec \\fmin(1,1) = "\fmin(1,1)"
ec \\fmin(0,1,2) = "\fmin(0,1,2)"
ec \\fmin(,1) = "\fmin(,1)"
ec \\fmin(99999999,1) = "\fmin(99999999,1)"
ec \\fmin(x,1) = "\fmin(x,1)"
ec \\fmin(7-6,16/8) = "\fmin(7-6,16/8)"
def \%a 4+4+4+4
ec \\fmin(\\%a,-(\\%a)) = "\fmin(\%a,-(\%a))"
ec \\fmin(((((((\\%a)))))),-(\\%a)) = "\fmin(((((((\%a)))))),-(\%a))"
ec
ec \\fmod() = "\fmod()"
ec \\fmod(,) = "\fmod(,)"
ec \\fmod(,,) = "\fmod(,,)"
ec \\fmod(,,,,,,,,,,) = "\fmod(,,,,,,,,,,)"
ec \\fmod(A) = "\fmod(A)"
ec \\fmod(A,) = "\fmod(A,)"
ec \\fmod(,A,) = "\fmod(,A,)"
ec \\fmod(,3,) = "\fmod(,3,)"
ec \\fmod({A}) = "\fmod({A})"
ec \\fmod(0,0) = "\fmod(0,0)"
ec \\fmod(1,0) = "\fmod(1,0)"
ec \\fmod(0,1) = "\fmod(0,1)"
ec \\fmod(1,1) = "\fmod(1,1)"
ec \\fmod(0,1,2) = "\fmod(0,1,2)"
ec \\fmod(,1) = "\fmod(,1)"
ec \\fmod(99999999,1) = "\fmod(99999999,1)"
ec \\fmod(x,1) = "\fmod(x,1)"
ec \\fmod(7-6,16/8) = "\fmod(7-6,16/8)"
def \%a 4+4+4+4
ec \\fmod(\\%a,-(\\%a)) = "\fmod(\%a,-(\%a))"
ec \\fmod(\\%a+1,-(\\%a)) = "\fmod(\%a+1,-(\%a))"
ec \\fmod(((((((\\%a)))))),-(\\%a)) = "\fmod(((((((\%a)))))),-(\%a))"
ec
ec \\feval() = "\feval()"
ec \\feval(,) = "\feval(,)"
ec \\feval(,,) = "\feval(,,)"
ec \\feval(,,,,,,,,,,) = "\feval(,,,,,,,,,,)"
ec \\feval(A) = "\feval(A)"
ec \\feval(A,) = "\feval(A,)"
ec \\feval(,A,) = "\feval(,A,)"
ec \\feval(,3,) = "\feval(,3,)"
ec \\feval({A}) = "\feval({A})"
ec \\feval(0,0) = "\feval(0,0)"
def \%a 4+4+4+4
ec \\feval(\\%a,-(\\%a)) = "\feval(\%a,-(\%a))"
ec \\feval(\\%a+1,-(\\%a)) = "\feval(\%a+1,-(\%a))"
ec \\feval(((((((\\%a)))))),-(\\%a)) = "\feval(((((((\%a)))))),-(\%a))"
ec \\feval((\\%a)/0) = "\feval((\%a)/0)"
ec \\feval((\\%a)%0) = "\feval((\%a)%0)"
ec \\feval((\\%a)@0) = "\feval((\%a)@0)"
ec \\feval((\\%a)#0) = "\feval((\%a)#0)"
:FILES
ec
ec \\ffiles() = "\ffiles()"
ec \\ffiles(,) = "\ffiles(,)"
ec \\ffiles(,,) = "\ffiles(,,)"
ec \\ffiles(,,,,,,,,,,) = "\ffiles(,,,,,,,,,,)"
ec \\ffiles(A) = "\ffiles(A)"
ec \\ffiles(A,) = "\ffiles(A,)"
ec \\ffiles(wermit) = "\ffiles(wermit)"
set wild shell
echo WITH SET WILD SHELL
ec \\ffiles(w*) = "\ffiles(w*)"
ec \\ffiles([a-b]*) = "\ffiles([a-b]*)"
ec \\ffiles(*) = "\ffiles(*)"
set wild kermit
echo WITH SET WILD KERMIT
ec \\ffiles(w*) = "\ffiles(w*)"
ec \\ffiles([a-b]*) = "\ffiles([a-b]*)"
ec \\ffiles(*) = "\ffiles(*)"
ec \\ffiles(\\%x) = "\ffiles(\%x)"
ec
ec \\fnextfile() = "\fnextfile()"
ec \\fnextfile(,) = "\fnextfile(,)"
ec \\fnextfile(,,) = "\fnextfile(,,)"
ec \\fnextfile(,,,,,,,,,,) = "\fnextfile(,,,,,,,,,,)"
ec \\fnextfile(A) = "\fnextfile(A)"
ec \\fnextfile(A,) = "\fnextfile(A,)"
ec \\fnextfile(wermit) = "\fnextfile(wermit)"
ec
ec \\fpathname() = "\fpathname()"
ec \\fpathname(,) = "\fpathname(,)"
ec \\fpathname(,,) = "\fpathname(,,)"
ec \\fpathname(,,,,,,,,,,) = "\fpathname(,,,,,,,,,,)"
ec \\fpathname(w*) = "\fpathname(w*)"
ec \\fpathname([a-b]*) = "\fpathname([a-b]*)"
ec \\fpathname(*) = "\fpathname(*)"
ec \\fpathname(/tmp/) = "\fpathname(/tmp/)"
ec \\fpathname(/tmp/foo/) = "\fpathname(/tmp/foo/)"
ec \\fpathname(/tmp/*) = "\fpathname(/tmp/*)"
ec \\fpathname(~/tmp/*) = "\fpathname(~/tmp/*)"
ec \\fpathname(~olga/tmp/*) = "\fpathname(~olga/tmp/*)"
ec
ec \\fbasename() = "\fbasename()"
ec \\fbasename(,) = "\fbasename(,)"
ec \\fbasename(,,) = "\fbasename(,,)"
ec \\fbasename(,,,,,,,,,,) = "\fbasename(,,,,,,,,,,)"
ec \\fbasename(w*) = "\fbasename(w*)"
ec \\fbasename(wermit) = "\fbasename(wermit)"
ec \\fbasename(notexists) = "\fbasename(notexists)"
ec \\fbasename(/tmp/*) = "\fbasename(/tmp/*)"
ec \\fbasename(~/tmp/*) = "\fbasename(~/tmp/*)"
ec \\fbasename(~olga/tmp/*) = "\fbasename(~olga/tmp/*)"
def \%f ~olga/tmp/*
ec \\fbasename(\\%f) = "\fbasename(\%f)"

ec
ec \\fsize() = "\fsize()"
ec \\fsize(,) = "\fsize(,)"
ec \\fsize(,,) = "\fsize(,,)"
ec \\fsize(,,,,,,,,,,) = "\fsize(,,,,,,,,,,)"
ec \\fsize(w*) = "\fsize(w*)"
ec \\fsize(wermit) = "\fsize(wermit)"
ec \\fsize(~olga/.env) = "\fsize(~olga/.env)"

ec
ec \\fdate() = "\fdate()"
ec \\fdate(,) = "\fdate(,)"
ec \\fdate(,,) = "\fdate(,,)"
ec \\fdate(,,,,,,,,,,) = "\fdate(,,,,,,,,,,)"
ec \\fdate(w*) = "\fdate(w*)"
ec \\fdate(wermit) = "\fdate(wermit)"
ec \\fdate(~olga/.env) = "\fdate(~olga/.env)"
ec
:ipaddr
ec \\fipaddr() = "\fipaddr()"
ec \\fipaddr(,) = "\fipaddr(,)"
ec \\fipaddr(,,) = "\fipaddr(,,)"
ec \\fipaddr(,,,,,,,,,,) = "\fipaddr(,,,,,,,,,,)"
ec \\fipaddr(a.b.c.d) = "\fipaddr(a.b.c.d)"
ec \\fipaddr(1.2.3.4) = "\fipaddr(1.2.3.4)"
ec \\fipaddr(999.999.999.999) = "\fipaddr(999.999.999.999)"
ec \\fipaddr(9999.9999.9999.9999) = "\fipaddr(9999.9999.9999.9999)"
ec \\fipaddr(128.59.39.2) = "\fipaddr(128.59.39.2)"
ec \\fipaddr(My address is 128.59.39.2) = "\fipaddr(My address is 128.59.39.2)"
ec \\fipaddr(Address: <<128.59.39.2>>) = "\fipaddr(Address: <<128.59.39.2>>)"
ec
:EXEC
ec
ec \\fexec() = "\fexec()"
ec \\fexec(,) = "\fexec(,)"
ec \\fexec(,,) = "\fexec(,,)"
ec \\fexec(,,,,,,,,,,) = "\fexec(,,,,,,,,,,)"
ec \\fexec(blah) = "\fexec(blah)"
def paste return \%1\%2\%3\%4
ec \\fexec(paste) = "\fexec(paste)"
ec \\fexec(paste AAA) = "\fexec(paste AAA)"
ec \\fexec(paste AAA BBB) = "\fexec(paste AAA BBB)"
ec \\fexec(paste AAA BBB CCC) = "\fexec(paste AAA BBB CCC)"
ec \\fexec(paste AAA BBB CCC DDD) = "\fexec(paste AAA BBB CCC DDD)"
ec \\fexec(paste AAA BBB CCC DDD EEE) = "\fexec(paste AAA BBB CCC DDD EEE)"
ec \\fexec(paste,AAA) = "\fexec(paste,AAA)"
ec \\fexec(paste,AAA,BBB) = "\fexec(paste,AAA,BBB)"
ec \\fexec(paste,AAA,BBB CCC) = "\fexec(paste,AAA,BBB,CCC)"
ec \\fexec(paste,AAA,BBB CCC DDD) = "\fexec(paste,AAA,BBB,CCC,DDD)"
ec \\fexec(paste,AAA,BBB CCC DDD EEE) = "\fexec(paste,AAA,BBB,CCC,DDD,EEE)"
ec \\fexec(paste { AAA } -
{ BBB } { CCC }) = "\fexec(paste { AAA } { BBB } { CCC })"
ec \\fexec({ paste } { AAA } -
{ BBB } { CCC }) = "\fexec({ paste } { AAA } { BBB } { CCC })"
ec
ec \\ftod2sec() = "\ftod2sec()"
ec \\ftod2sec(,) = "\ftod2sec(,)"
ec \\ftod2sec(,,) = "\ftod2sec(,,)"
ec \\ftod2sec(,,,,,,,,,,) = "\ftod2sec(,,,,,,,,,,)"
ec \\ftod2sec(A) = "\ftod2sec(A)"
ec \\ftod2sec(23:59:59) = "\ftod2sec(23:59:59)"
ec \\ftod2sec(23:59:) = "\ftod2sec(23:59:)"
ec \\ftod2sec(23:59) = "\ftod2sec(23:59)"
ec \\ftod2sec(23:) = "\ftod2sec(23:)"
ec \\ftod2sec(23) = "\ftod2sec(23)"
ec \\ftod2sec(-23) = "\ftod2sec(-23)"
ec \\ftod2sec(32:77:95) = "\ftod2sec(32:77:95)"
ec \\ftod2sec(00:77:01) = "\ftod2sec(00:77:01)"
ec \\ftod2sec(00:00:01) = "\ftod2sec(00:00:01)"
ec \\ftod2sec(00:00:61) = "\ftod2sec(00:00:61)"
ec \\ftod2sec(23:-59:59) = "\ftod2sec(23:-59:59)"
ec \\ftod2sec(23:59:-59) = "\ftod2sec(23:59:-59)"
ec \\ftod2sec(23:59:59xxx) = "\ftod2sec(23:59:59xxx)"
ec \\ftod2sec(xxx23:59:59) = "\ftod2sec(xxx23:59:59)"
ec \\ftod2sec(23:59:59 xxx) = "\ftod2sec(23:59:59 xxx)"

echo \\fstripn(abcdefghijklmnop) = "\fstripn(abcdefghijklmnop)"
echo \\fstripn(abcdefghijklmnop,1) = "\fstripn(abcdefghijklmnop,1)"
echo \\fstripn(abcdefghijklmnop,2) = "\fstripn(abcdefghijklmnop,2)"
echo \\fstripn(abcdefghijklmnop,3) = "\fstripn(abcdefghijklmnop,3)"
echo \\fstripn(abcdefghijklmnop,10) = "\fstripn(abcdefghijklmnop,10)"
echo \\fstripn(abcdefghijklmnop,15) = "\fstripn(abcdefghijklmnop,15)"
echo \\fstripn(abcdefghijklmnop,16) = "\fstripn(abcdefghijklmnop,16)"
echo \\fstripn(abcdefghijklmnop,17) = "\fstripn(abcdefghijklmnop,17)"
echo \\fstripn(abcdefghijklmnop,1000) = "\fstripn(abcdefghijklmnop,1000)"
echo \\fstripn(abcdefghijklmnop,0) = "\fstripn(abcdefghijklmnop,0)"
echo \\fstripn(abcdefghijklmnop,-1) = "\fstripn(abcdefghijklmnop,-1)"
echo \\fstripn(abcdefghijklmnop,-2) = "\fstripn(abcdefghijklmnop,-2)"
echo \\fstripn(abcdefghijklmnop,xxx) = "\fstripn(abcdefghijklmnop,xxx)"
echo \\fstripn(abcdefghijklmnop,-xxx) = "\fstripn(abcdefghijklmnop,-xxx)"
echo \\fstripn(abcdefghijklmnop,2xxx) = "\fstripn(abcdefghijklmnop,2xxx)"
echo \\fstripn() = "\fstripn()"
echo
echo \\fstripx(abcdefghijklmnop) = "\fstripx(abcdefghijklmnop)"
echo \\fstripx(.abcdefghijklmnop) = "\fstripx(.abcdefghijklmnop)"
echo \\fstripx(a.bcdefghijklmnop) = "\fstripx(a.bcdefghijklmnop)"
echo \\fstripx(abcdefghijklmnop.) = "\fstripx(abcdefghijklmnop.)"
echo \\fstripx(abcdefghijklmno.p) = "\fstripx(abcdefghijklmno.p)"
echo \\fstripx(abcdefghijklmn.op) = "\fstripx(abcdefghijklmn.op)"
echo \\fstripx(a.c.e.g.i.k.m.o.p) = "\fstripx(a.c.e.g.i.k.m.o.p)"
echo \\fstripx(a................) = "\fstripx(a................)"
echo \\fstripx(.................) = "\fstripx(.................)"
echo \\fstripx() = "\fstripx()"
echo
echo \\fstripx(abcdefghijklmnop,h) = "\fstripx(abcdefghijklmnop,h)"
echo \\fstripx(.abcdefghijklmnop,h) = "\fstripx(.abcdefghijklmnop,h)"
echo \\fstripx(a.bcdefghijklmnop,h) = "\fstripx(a.bcdefghijklmnop,h)"
echo \\fstripx(abcdefghijklmnop.,h) = "\fstripx(abcdefghijklmnop.,h)"
echo \\fstripx(abcdefghijklmno.p,h) = "\fstripx(abcdefghijklmno.p,h)"
echo \\fstripx(abcdefghijklmn.op,h) = "\fstripx(abcdefghijklmn.op,h)"
echo \\fstripx(a.c.e.g.i.k.m.o.p,h) = "\fstripx(a.c.e.g.i.k.m.o.p,h)"
echo \\fstripx(a................,h) = "\fstripx(a................,h)"
echo \\fstripx(.................,h) = "\fstripx(.................,h)"
echo \\fstripx(,h) = "\fstripx(,h)"
echo
echo \\flop(oofa.txt) = "\flop(oofa.txt)"
echo \\flop(oofa_txt) = "\flop(oofa_txt)"
echo \\flop(oofa_txt,o) = "\flop(oofa_txt,o)"
echo \\flop(oofa_txt,f) = "\flop(oofa_txt,f)"
echo \\flop(oofa_txt,a) = "\flop(oofa_txt,a)"
echo \\flop(oofa_txt,_) = "\flop(oofa_txt,_)"
echo \\flop(oofa_txt,t) = "\flop(oofa_txt,t)"
echo \\flop(oofa_txt,x) = "\flop(oofa_txt,x)"
echo \\flop() = "\flop()"
echo \\flop(,x) = "\flop(,x)"
exit
