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