foreach s [read stdin] {puts [regsub .{[expr [string le $s]/2]} $s &\ ]}