foreach n\ s [read stdin] {puts [regsub -all .{[expr [string le $s]/$n]}\\Y $s &\ ]}