Solution to http://www.python-forum.de/viewtopic.php?f=1&t=33545

wordoffsets.hs

module Main where

input = [
    "4", "S", "a", "t", "z", "0",
    "3", "D", "a", "s", "17",
    "3", "e", "i", "n", "1",
    "3", "i", "s", "t", "12"
]

traverse :: [String] -> Int -> [String]
traverse [] _ = []
traverse _ 0 = []
traverse input n = word:(traverse input jmp)
    where len = (read (input !! (n-1))::Int)
          start = drop n input
          word = concat $ take len start
          (jump:_) = drop len start
          jmp = read jump::Int