[Haskell-cafe] Cyclic indexing (Was: naturally, length :: a -> Int)