@lines=("japh","unea","sorc","ttlk"," h e"," e r"," r  ");
print join("", map { s/(.)//s ? $1 : " " } @lines), "\n" while length join "", @lines;