# Tcl

To use this language, use the class "language-tcl".

## Comments

    # This is a comment

## Strings

    "foo \"bar\" baz"
    "foo\
    bar\
    baz"

## Variables

    $foo
    $foo::bar_42
    $::baz
    ${foobar}
    set foo::bar "baz"

## Functions

    proc foobar {baz} {
    	puts $baz
    }

    proc RESTORE/post/:post_id/comment/:comment_id {post_id comment_id} {
        #| Restore a comment handler
        comment_restore $comment_id
        qc::actions redirect [url "/post/$post_id" show_deleted_comment_ids $comment_id]
    }