xs = zipWith3 (\x -> (x++) >> (++)) "abc" "ABC"
 "123"