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