(fn Counter () (do
    (let counter 0)

    (fn count () (do
        (return counter)
    ))

    (fn increment () (do
        (+= counter 1)
    ))

    (return (list count increment))
))