{-# LANGUAGE ViewPatterns #-}

splitLookup :: [(Int, String)] -> String
splitLookup (lookup 5 -> a) = _