chomp(my @lines = <>);
print join(" ", map { s/(.)//s ? $1 : " " } @lines), "\n" while length join "", @lines;