gistfile1.txt

    ?FORALL({FunName, ArgName, Op}, {ident(), ident(), op()},
            begin
                Expr = lists:flatten(
                         io_lib:format("(defn ~s [~s] (~s (mod ~s) 0))",
                                       [FunName, ArgName, Op, ArgName])),
                Tokens = jxa_lex:lex(Expr),
                [] == Tokens
            end).