tclでリストを逆順にするには？

tclでリストを逆順に並び替えるための方法をメモしておく．

proc lreverse {original} {
    set reverse {}
    foreach i $original {
        set reverse [linsert $reverse 0 $i]
    }
    return $reverse
}