$<.each_char{|s|print s*2}