S.I/Lisp/

SL




=SL()
-> {"_1_are_2.",_1_are_2.;"_1_is_2.",_1_is_2.;...}
        



DEFINE(
    SL,
    LAMBDA(
        VSTACK(
            HSTACK("_?_is_1.", _?_is_1.),
            HSTACK("_1_are_2.", _1_are_2.),
            HSTACK("_1_is_2.", _1_is_2.),
            HSTACK("_1_is_not_2.", _1_is_not_2.),
            HSTACK("_Is_1_2?", _Is_1_2?),
            HSTACK("ALL", ALL),
            HSTACK("ALPHABET", ALPHABET),
            HSTACK("APPEND", APPEND),
            HSTACK("APPLY", APPLY),
            HSTACK("ARITY", ARITY),
            HSTACK("ASSERT", ASSERT),
            HSTACK("BEGINSWITH?", BEGINSWITH),
            HSTACK("BUILTINS", BUILTINS),
            HSTACK("BUILTINS.A", BUILTINS.A),
            HSTACK("BUILTINS.B", BUILTINS.B),
            HSTACK("BUILTINS.C", BUILTINS.C),
            HSTACK("BUILTINS.D", BUILTINS.D),
            HSTACK("BUILTINS.E", BUILTINS.E),
            HSTACK("BUILTINS.F", BUILTINS.F),
            HSTACK("BUILTINS.G", BUILTINS.G),
            HSTACK("BUILTINS.H", BUILTINS.H),
            HSTACK("BUILTINS.I", BUILTINS.I),
            HSTACK("BUILTINS.K", BUILTINS.K),
            HSTACK("BUILTINS.L", BUILTINS.L),
            HSTACK("BUILTINS.M", BUILTINS.M),
            HSTACK("BUILTINS.N", BUILTINS.N),
            HSTACK("BUILTINS.O", BUILTINS.O),
            HSTACK("BUILTINS.P", BUILTINS.P),
            HSTACK("BUILTINS.Q", BUILTINS.Q),
            HSTACK("BUILTINS.R", BUILTINS.R),
            HSTACK("BUILTINS.S", BUILTINS.S),
            HSTACK("BUILTINS.T", BUILTINS.T),
            HSTACK("BUILTINS.U", BUILTINS.U),
            HSTACK("BUILTINS.V", BUILTINS.V),
            HSTACK("BUILTINS.W", BUILTINS.W),
            HSTACK("BUILTINS.X", BUILTINS.X),
            HSTACK("BUILTINS.Y", BUILTINS.Y),
            HSTACK("BUILTINS.Z", BUILTINS.Z),
            HSTACK("CAPITALIZE", CAPITALIZE),
            HSTACK("CAR", CAR),
            HSTACK("CASE", CASE),
            HSTACK("CDR", CDR),
            HSTACK("CELLNAME", CELLNAME),
            HSTACK("COINTOSS", COINTOSS),
            HSTACK("COLUMNLETTER", COLUMNLETTER),
            HSTACK("CONS", CONS),
            HSTACK("CONSTANCY", CONSTANCY),
            HSTACK("CONTAINS", CONTAINS),
            HSTACK("COUNTCELLS", COUNTCELLS),
            HSTACK("CRITERIATABLE", CRITERIATABLE),
            HSTACK("CUBEROOT", CUBEROOT),
            HSTACK("CURRY", CURRY),
            HSTACK("DECREMENT", DECREMENT),
            HSTACK("DEFAULT", DEFAULT),
            HSTACK("DICEROLL", DICEROLL),
            HSTACK("DIFFERENCE", DIFFERENCE),
            HSTACK("EMPTYLIST?", EMPTYLIST?),
            HSTACK("ENDSWITH?", ENDSWITH),
            HSTACK("EQUAL", EQUAL),
            HSTACK("EXTRACTOPERATOR", EXTRACTOPERATOR),
            HSTACK("EXTRACTOPERATORS", EXTRACTOPERATORS),
            HSTACK("FILENAME", FILENAME),
            HSTACK("FIRST", FIRST),
            HSTACK("FIRSTCOLUMN", FIRSTCOLUMN),
            HSTACK("FIRSTLETTER", FIRSTLETTER),
            HSTACK("FIRSTROW", FIRSTROW),
            HSTACK("FIRSTWORD", FIRSTWORD),
            HSTACK("FLIPCOIN", FLIPCOIN),
            HSTACK("FOREACH", FOREACH),
            HSTACK("FORMAT", FORMAT),
            HSTACK("FULLDECK", FULLDECK),
            HSTACK("FUNCTION", FUNCTION),
            HSTACK("FUNCTIONS", FUNCTIONS),
            HSTACK("GREATERTHAN?", GREATERTHAN?),
            HSTACK("GTE?", GTE?),
            HSTACK("HEADLESS", HEADLESS),
            HSTACK("HLIST", HLIST),
            HSTACK("HORIZONTAL?", HORIZONTAL?),
            HSTACK("IDENTITY", IDENTITY),
            HSTACK("IFBLANK", IFBLANK),
            HSTACK("IFOMITTED", IFOMITTED),
            HSTACK("INCREMENT", INCREMENT),
            HSTACK("INDICES", INDICES),
            HSTACK("IS", IS),
            HSTACK("ISATOM", ISATOM),
            HSTACK("LAST", LAST),
            HSTACK("LESSTHAN?", LESSTHAN?),
            HSTACK("LTE?", LTE?),
            HSTACK("MAGIC8BALL", MAGIC8BALL),
            HSTACK("MEETSCRITERIA", MEETSCRITERIA),
            HSTACK("MEMBER", MEMBER),
            HSTACK("NEGATIVE?", NEGATIVE?),
            HSTACK("NO", NO),
            HSTACK("NOTEQUAL", NOTEQUAL),
            HSTACK("ONE?", ONE?),
            HSTACK("OTHERWISE", OTHERWISE),
            HSTACK("PICK", PICK),
            HSTACK("POSITIVE?", POSITIVE?),
            HSTACK("PROVIDED?", PROVIDED?),
            HSTACK("QUESTION", QUESTION),
            HSTACK("RANGE?", RANGE?),
            HSTACK("RATIO", RATIO),
            HSTACK("REST", REST),
            HSTACK("REVERSE", REVERSE),
            HSTACK("ROCKPAPERSCISSORS", ROCKPAPERSCISSORS),
            HSTACK("ROLLDICE", ROLLDICE),
            HSTACK("SELECTCOLUMNS", SELECTCOLUMNS),
            HSTACK("SELECTFROM", SELECTFROM),
            HSTACK("SELECTROWS", SELECTROWS),
            HSTACK("SHEETNAME", SHEETNAME),
            HSTACK("SIEVE", SIEVE),
            HSTACK("SL", SL),
            HSTACK("SQUAREROOT", SQUAREROOT),
            HSTACK("STATEMENT", STATEMENT),
            HSTACK("TEXTBETWEEN", TEXTBETWEEN),
            HSTACK("TEXTTOCOLUMNS", TEXTTOCOLUMNS),
            HSTACK("TEXTTOROWS", TEXTTOROWS),
            HSTACK("TRIMALL", TRIMALL),
            HSTACK("TRIMSPLIT", TRIMSPLIT),
            HSTACK("TYPESTRING", TYPESTRING),
            HSTACK("VERTICAL?", VERTICAL?),
            HSTACK("VLIST", VLIST),
            HSTACK("YES", YES),
            HSTACK("ZERO?", ZERO?))))
        



Help us optimize this function