list do(File standardInput foreach($,push($asCharacter asUppercase))write(join(" "),"
",slice(1)join("
")))