'(a b C)  | tr 'aeiou' 'AEIOU' | (apply string-append (read-all)) now works