main :: [sys_message]
main = [ Stdout (show list ++ "\n")
       | list <- [take 10 eck, take 10 (drop 990 eck)]
       ]

eck :: [num]
eck = 0 : map item [1..]
      where item n = find last (tl sofar)
                     where sofar = reverse (take n eck)
                           last  = hd sofar

find :: *->[*]->num
find i = find' 1
         where find' n []     = 0
               find' n (a:as) = n, if a = i
                              = find' (n+1) as, otherwise