lol

gistfile1.txt

import Control.Comonad.Store 
import Data.Char 

thing :: [Char] -> [[Char]]
thing [] = []
thing xss@(x:xs) = 
  let rotate n xs = reverse $ take (length xs) (drop n (cycle xs))

      ys = toUpper : (replicate (length xs) id)

      f (n,zs) = zipWith (\g x -> g x) (rotate n ys) zs

      myStore = store f (1,xss)

  in map (\x -> peeks (\(y,z) -> (x,z)) myStore) [1.. length xss]