Sample Tcl File

# Sample Tcl script — samplefiles.com
set customers {
    {1 Ada 12500.00}
    {2 Grace 830.50}
    {3 Linus 10000.00}
}

proc isVip {balance} {
    expr {$balance >= 10000}
}

set total 0.0
foreach c $customers {
    lassign $c id name balance
    puts [format "%-6s %10.2f %s" $name $balance [expr {[isVip $balance] ? "VIP" : ""}]]
    set total [expr {$total + $balance}]
}
puts [format "Total: %.2f" $total]