1{-# LANGUAGE ViewPatterns #-} 2 3splitLookup :: [(Int, String)] -> String 4splitLookup (lookup 5 -> Nothing) = _w0 5splitLookup (lookup 5 -> (Just s)) = _w1 6 7