input.txt

(translate
    (group
        (scale
            (line 23 52 65 3)
            3
        )
        (group
            (rotate
                (rect 100 100 100 100)
                45
            )
            (scale
                (rect 100 100 100 100)
                2
            )
        )
        (rect 100 100 50 50)
        (translate
            (group
                (penta 23 74 2)
                (group
                    (filledhexa 34 70 29)
                )
            )
            23 68
        )
    )
    200 200
)


(linewidth
    (/ 3 2)
)
(color .5 .5 .5)
(translate
    (group
        (line 0 0 50 50)
        (rect 30 30 100 100)
        (filledrect -10 -20 50 50)
        (tri 200 250 3e1)
        (filledtri 123 304 4.0e2)
        (square 443 439 024)
        (filledsquare 235 30.45 5)
        (penta 393 13.0 43)
        (filledpenta 120 34 48)
        (hexa 034 293 4.65)
        (filledhexa 643 843 53)
    )
    110 120
)


(for I 2 2
    (line 40 40 I I)
)

(for I 7 3
    (line 40 40 I I)
)

(linewidth I)

(ngon I I I I)

(for a_var 8 30
    (scale
        (group
            (rotate
                (group
                    (scale
                        (ngon a_var a_var
                            (* a_var
                                (/ 623 23)
                            )
                            a_var
                        )
                        3.5
                    )
                    (filledngon a_var a_var
                        (* a_var
                            (/ 623 23)
                        )
                        a_var
                    )
                )
                -34.08e1
            )
            (translate
                (group
                    (line 24 32 63 54)
                    (tri 30 2 4)
                )
                23 42
            )
        )
        .75
    )
)

(:= WATCH 200)
(rotate
    (scale
        (group
            (group
                (sector WATCH WATCH WATCH WATCH
                    (   + ( * ( / ( - ( sin ( cos WATCH) ) WATCH) -2.4839450) -2.4839450) WATCH))
                (filledsector WATCH WATCH WATCH WATCH
                    (   + ( * ( / ( - ( sin ( cos WATCH) ) WATCH) -2.4839450) -2.4839450) WATCH))
            )
        )
        4.5
    )
    1080
)

(:= E 1)
(for E 2 10
    (:= E (+ E 1))
    (for E 10 20
        (:= E (/ E 2))
        (for E -5 5
            (:= E (* E E))
        )
    )
    (linewidth E)
)



(:= X 10)
(for X 1 2
    (for Y 1 2
        (for X 1 2
            (:= X 10)
            (scale
                (group
                    (translate
                        (group
                            (line X Y 100 100)
                        )
                    X X)
                )
            Y)
            (:= X (sin Y))
            (scale
                (group
                    (translate
                        (group
                            (line X Y 100 100)
                        )
                    X X)
                )
            Y)
        )
    )
)


(:= A 4)
(:= B A)
(:= A B)
(:= C B)

(linewidth B)
(linewidth A)
(linewidth C)