Posted to tcl by kotrcka at Mon Dec 23 02:59:36 GMT 2019view pretty

puts "Merry Christmas everyone!!!\n"

for {set a 1} {$a < 20} {incr a 2} {
        puts "[string repeat { } [expr 19 - $a]][string repeat {xo} $a]"
        puts "[string repeat { } [expr 19 - $a]][string repeat {ox} $a]"
}
puts "[string repeat { } [expr $a - 2]]||"
puts "[string repeat { } [expr $a - 2]]||"