1{-# LANGUAGE ViewPatterns #-} 2 3splitLookup :: [(Int, String)] -> String 4splitLookup (lookup 5 -> a) = _ 5 6