read(`code_paper.txt`):

Help_paper_test:=proc()
    print(` PaperTestPrefixBySize(cap,out) `):
    print(` PaperTestLongestPrefixSoFar(out) `):
end:

PaperTestPrefixBySize:=proc(cap,out)
        local filter,stopcond,i,n:
    stopcond:=proc(i) MakeMaxNFilter(i): end:
    filter:=proc(i,n) AndFilters(AndFilters(stopcond(i),
        MakeAtLeastTPrefixFilter(1)), MakeSizeNFilter(n)): end:
    WritePaper(out, ["test2.txt"], [false], [[seq(
        [[seq(filter(i,n),n=1..i)],[seq(filter(i,n),n=1..i)],
        [seq(LSelector,n=1..i)],[],[],stopcond(i)],i=7..cap)]],
        {"FLOAT"}):
end:

PaperTestLongestPrefixSoFar:=proc(out) local parens:
    parens:=proc(str)
        return cat(" (",str,")"):
    end:
    WritePaper(out, ["test2.txt"], [false],
        [[[[],[],[],[MakeStrictlyLongestPrefixSoFarFilter()],
        [StrCatSelectors(StringSelector(SSelector),
            ComposeSelector(GSelector,parens))],IdentityFilter]]]):
end: