foo xs = baz
  where
    bar =
        catMaybes
            [ lookup langKey gets -- 1
            , lookup langKey cookies -- 2
            , lookupText langKey session -- 3
            ]
            ++ xs -- 4

    -- Blah
    baz = addTwoLetters (id, Set.empty) bar
