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