set s [join [split [read stdin]] ""]
while {[regexp (.{1,[incr i]})(.*) $s a b s]} {puts $b}