set n [gets stdin];set a " ";append a [string repe " ##" $n];set b "#";append b [string repe " #" [incr n -1]];puts "$a $b $b $b $b $b $a"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page