puts [format [set s {puts [format [set s {%s}] $s]}] $s]