[nightcracker]

Simple:

local function vertical(s)
	local p = string.sub(s, 1, 1)
	for i = 2, string.len(s) do
		p = p.."\n"..string.sub(s, i, i)
	end
	return p
end