E ==> Expression Integer

OF ==> OutputForm

macro R == Record(OUTPUTFORM:OF,_
                  SEXPRESSION: SExpression,_
                  SEXPRESSION: SExpression,_
                  TEXFORMAT: TexFormat)

macro e x == (_
    o:=x::OF;_
    print(([o,_
            outputTran(o)$Lisp,_
            outputTran(precondition(o)$OutputFormTools)$Lisp,
            o::TexFormat_
           ]$R)::OF);_
    x)

e continuedFraction(3, repeating [1], repeating [3, 6])

   [
       OUTPUTFORM
     = 
               1 |     1 |     1 |     1 |     1 |     1 |     1 |     1 |
         3 + +---+ + +---+ + +---+ + +---+ + +---+ + +---+ + +---+ + +---+
             | 3     | 6     | 3     | 6     | 3     | 6     | 3     | 6
       + 
           1 |     1 |
         +---+ + +---+ + ...
         | 3     | 6
     ,

       SEXPRESSION
     = 
       (+  3

         (+

           (+

             (+

               (+

                 (+

                   (+

                     (+  (+ (+ (+ (ZAG 1 3) (ZAG 1 6)) (ZAG 1 3)) (ZAG 1 6))
                      (ZAG 1 3))

                    (ZAG 1 6))

                  (ZAG 1 3))

                (ZAG 1 6))

              (ZAG 1 3))

            (ZAG 1 6))

          ...)
         )
     ,

       SEXPRESSION
     = 
       (+  3  (ZAG 1 3)  (ZAG 1 6)  (ZAG 1 3)  (ZAG 1 6)  (ZAG 1 3)  (ZAG 1 6)
        (ZAG 1 3)  (ZAG 1 6)  (ZAG 1 3)  (ZAG 1 6)  ...)
     ,

       TEXFORMAT
     = 
       ["$$",
        "3+ \zag{1}{3}+ \zag{1}{6}+ \zag{1}{3}+ \zag{1}{6}+ \zag{1}{3}+ ",
        "\zag{1}{6}+ \zag{1}{3}+ \zag{1}{6}+ \zag{1}{3}+ \zag{1}{6}+\ldots ",
        "$$"]
     ]

(1)

e [i for i in 1..]

   [OUTPUTFORM = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, ...],
    SEXPRESSION = (BRACKET (AGGLST 1 2 3 4 5 6 7 8 9 10 "...")),
    SEXPRESSION = (BRACKET (AGGLST 1 2 3 4 5 6 7 8 9 10 "...")),

       TEXFORMAT
     = 
       ["$$", "\left[",
        "1, \: 2, \: 3, \: 4, \: 5, \: 6, \: 7, \: 8, \: 9, \: {10}, \: ... ",
        "\right]", "$$"]
     ]

(2)