set i [gets stdin s]
set o ""
while {$i} {puts [set o [set c [string in $s [incr i -1]]]$o$c]}