# brintOS Tcl witness (BRINTOS-5): one line per requirement probe.
puts "R2-expr [expr {6*7}]"
proc fib {n} {expr {$n < 2 ? $n : [fib [expr {$n-1}]] + [fib [expr {$n-2}]]}}
puts "R2-fib15 [fib 15]"
puts "R2-string [string toupper abc]/[string length hello]"
puts "R2-list [lsort {2 1 3 3}] [llength {a b c}]"
puts "R3-utf8 [string equal [encoding convertfrom utf-8 [encoding convertto utf-8 é]] é]"
puts "R1-encN [llength [encoding names]]"
puts "R4-exists [file exists /bin]/[file isdirectory /bin]"
puts "R4-pwd [pwd]"
puts "INFO-lib [info library]"
puts "INFO-ver [info patchlevel]"
puts "ALL-TCL-OK"