import Control.Monad.Reader

data Fjas = MkFjas {foo::[Int], bar::Int}
    deriving (Show,Read)

initFjas = MkFjas { foo=[1,2,3,4], bar=0}

-- Funkar
getIt rec = 
    do result <- asks foo rec
       return result

-- Funkar ej, why?    
--getIt2 rec = 
--    do result <- asks foo rec
--       return $ head result