sub scroll { map { $_, "\n" } split('', shift) }